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4 DESCRIPTION; 

4 

* THIS T6V PROGRAM VERIFIES PROPER OPERATION OF THE LEVEL 6 COMMUNICATION LINE 
4 ADAPTERS* WHICH ARE ATTACHMENTS TO THt DUALLINE COMMUNICATION PTOCESSOR. 

4 

* THE SUBSYSTEM ITEMS SUPPORTED BY THIS PROGRAM ARE; 

4 

4 DLC9101 DUALLINE COMMUNICATION PROCESSOR 

4 DLC9102 DUALLINE COMMUNICATION PROCESSOR 

* DLC9103 DUALLINE COMMUNICATION PROCESSOR 

4 

* REVISION history; 

4 

* REV DATE 

4 A FEB 78 ORIGINAL RELEASE 

4 

*************************** ft ***************************#********************** 

4 THIS DOCUMENT AND THE INFORMATION CONTAINED 

4 THEREIN IS CONFIDENTIAL AND PROPRIETARY TO mND THE 

4 EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION 

* SYSTEMS INC. IT IS MADE AVAILABLE UNLY TO HONEY- 

4 WELL AUTH0RI2ED RECIPIENTS FOR THEIR USE SOtELY in 

4 THE MAINTENANCE AND OPERATION OF HONEYWELL 

4 PRODUCTS. THIS DOCUMENT AND INFORMA I ION MUST BE 

4 MAINTAINED IN STRICTEST CONFIDENCE? IT MUST NOT 

* BE REPRODUCED IN WHOLE OR IN PART? AND IT SHALL 

ik NOT BE DISCLOSED TO ANY OTHER PARTY WITHOUT THE 

ik PRIOR WRITTEN CONSENT OF HONEYWELL. 

ik * 

4 PROGRAM PREPARATION; 

* 

# 

» THE ROUT SOURCE OF THIS PROGRAM* AFTER THE ADDITION OF APPROPRIATE 
4 TITLE AND END STATEMENTS, WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 

4 TO CREATE EITHER SHORT OR LONG ADDRESS FORM (SAF OR LAF) OBJECT TEXT 

* AND LISTING. THE OBJECT TEXT WAS FURIHtR PRuCESSeD BY I HE HOST RESIDENT 

4 LINKER USING THE APPROPRIATE CONSOLE ZVSL1B LIBRARY TU CREATE A PUNCH 

* SEGMENT CONTAINING AN EXECUTABLE MODULE. THt ASSEMBLY LISUNG WAS 

ik AUGMENTED WITH CROSS REFERENCE DATA PLUS THt LOAq MAP FROM THE LINKER 


4 

ik 

ik 

TO CREATE A LIST SEGMENT. 

ROOT 

SAF 

lAF 

ik 

»——— 


• VO 

ik 

NAMt DCMX1 

DCMS1 

UCML1 

4 

DOCUMENT XXXXXXXX-Q01 

XXXXXXXX-0U1 

XXXXXXXX-OOI 


* 

* 


4 PROGRAM DISTRIBUTION; 

4 

# 

# THE ELEMENTARY ITEMS SUBMITTED TO THE T&V Pk 0GRA M DISTRIBUTION CENltR 

4 WERE THt EXECUTABLE PUNCHED CARD DECKS OF DcMSl AND DCML1, AND MAGNETIC 

4 TAPE IMAGES OF THt AUGMENTED LISTINGS, 

* 

ik REPRODUCTIONS OF THE EXECUTABLE CARD DtCKS HAY BE AS DUPLICATE CARD DECKS 

4 OR AS MtMBER "VL" UP A MULTIPLE MEMBER FILt. IN THE MOST FREQUENT CASE 

4 IT WILL BE. FjjUND.AS MEMBER VL WITHIN FILE. PkQGFLee OF A DISKETTE VOLUME 

4 ENTITLED DIAGS. 

* 

ik DISTRIBUTION OF THt LISTINGS, WHICH SHOULD oE AVAILABLE IF ANY COMPLEX 
ik MAINTENANCE UR REPAIR IS TO BE PERFORMED, Is NORMALLY MADt AS A 
4 PRINTED COPY. 

4 

ik 

4 ROUTINE DEMONSTRATION; 

ik 

4 

4 A MINIMUM SATISFACTORY TEST FOR NORMAL OPERATION MAY BE OBTAINED BY 

4 ANSWERING TH QUESTION 'NEXT' WITH AN 'A* AND COMPLETING ONE PASS. 

# 

* 

ik MAIN MEMORY REQUIREMENT; 

4 

ik 

ik THIS PROGRAM REQUIRES 8K WORDS OF MAIN MEMORY AND WILL USt 
ik ALL OF AVAILABLE MEMORY THROUGH 8K WORDS, 
ik 

4#*444444444*4444#4#4#*#444**44**4*444*444*##*****#****###*4#44#*##*#### 


# 

4 TEST PRQCEtDURE 

# 

* 

4 BEFORE RUNNING THE CLA TEST, THE MOTHER BOARu TEST (DCMCl) 
ik SHOULD Bt RUN TD MAKE SURE THE DLCP IS OPERATING CORRECTLY. 

4 

4 THE PROGRAM AUTOMATICALLY TEST ALL CLA»S WHICH AR£ LISTED ABOVE 
4 UNDER DESCRIPTION, IT PROCEEDS TO EXERCISE ALL THE LlNt ADAPTER 
4 FUNCTIONAL TESTS IN LOOP BACK MODE, 

4 

4 THE TESTS ARE SET UP SO THAT ALL THE CLA«S ARE TESTED ACCORDING TO A 
4 PARTICULAR FUNCTION. SOME OF THE FUNCTIONAL TESTS INCLUDE CHARACTER 

# SIZE TEST, LINE SPEED TEST, PARITY AND CRC TtSTt AND UNDERRUN AND 
4 OVERRRN TEST. 

* 


4 

4 OPERATING INSTRUCTIONS 

4 

4 

4 LOAD AND START (OR RESTART) THE PROGRAM. THE PROGRAM IDENTIFICATION WILL 
4 BE DISPLAYED ON THE CONSOLE. THE INITIAL START WILL ALSU DISPLAY; 

4 

4 THE ZVSLIB REVISION NUMBER 

4 THE ADDRESS FORM (SAF OR LAF) 

4 I/O EQUIPMENT DETECTED IN THE SYSTEM 

4 MEMORY SIZE 

4 

4 THIS DISPLAY MUST BE VERIFIED BY THk OPERATOR. THIS DISPLAY IS OMITTED 
4 ON RESTARTS. 
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THE CONSOLE SEARCH RUi.ES ARE; FINO THE CONSOLE WITH THE LOWEST CHANNEL 
NUMBER CONNECTED THRU A DMC CONTROLLER. IF THERE IS NO CONSOLE ON A 
DMC* THEN SEARCH FOR A TERMINAL WITH THE HIGHEST CHANNEL NUMBER ASSIGNED 
TO AN ACLA ADAPTER ON A DLC CONTROLLER. IF NO ASYNC ADAPTER IS FOUND* 
THEN GO TO THE FULL CONTROL PANEL. 

THERE ARE THREE CONSOLE CHANNEL OPTIONS DETERMINED BY THE VALUE OF LO¬ 
CATION "ZVSTTY". 

IF ZVSTTY EuUALS (OOOO)* search for a console, 
if zvstty equals <ffff). assume there is no console. 

IF ZVSTTY EQUALS NEITHER (OOOO)* NOR (FFFF)* THEN IT IS THE CONSOLE CHAN¬ 
NEL NUMBER. note; default IS TO SEARCH FOR a CONSOLE. 

ALL CONSOLE I/O IS EVEN PARITY. IF CONSOLE IS ON DLC* IT MUST BE ASYNC 
AND THE BAUD RATE SET AT 1200 TO MAICH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECESSARY TO CHANGE THE PROGRAM BAUD RATE* THEN I HE NEW BAUD RATE 
CODE SHOULD BE PUT INTO LOCATION "ZVSBUD" IN HEX. THE TERMINAL BAUD RATE 
MUST Bt SET TO MATCH THIS NEW BAUD KATE. THE CORRECT HEX VALUE MAY BE 
OBTAINED FRUM THE FOLLOWING TABLE. 


BAUD RATE TABLE 


000140 

*. 






000141 

ft 

ACLA I 

.D«E(2118)(2110) 

E(210t 

000142 

ft 

BAUD-RATE 




000143 

ft 

50 

E 

0 EE 

I 


000144 

ft 

75 

E 

l EE 

2 


000145 

ft 

110 

E 

2 EE 

3 


000146 

ft 

134 

E 

3 EE 

4 


000147 

ft 

150 

E 

4 EE 

5 


000148 

ft 

200 

E 

5 EE 

... 


000149 

ft 

300 

E 

6 EE 

6 


000150 

ft 

600 

E 

7 EE 

7 


000151 

ft 

900 

E 

-EE 

8 


000152 

ft 

1050 

E 

8 EE 

... 


000153 

ft 

1200 

E 

9 EE 

9 


000154 

ft 

1800 

E 

10 (A) 

EE 

10 (A) 

000155 

ft 

2000 

E 

a <b) 

EE 


000156 

ft 

2400 

E 

12 (C) 

E 

a <B) 

000157 

ft 

3600 

E 

-EE 

12 

(C) 

000158 

ft 

4800 

E 

13 (D) 

EE 

13 (D) 

000159 

ft 

7200 

E 

-EE 

14 

(E) 

000160 

ft 

9600 

E 

14 (E) 

EE 

15 (F) 

000161 

ft 

19200 

E 

15 (F) 

EE ' 


00.0162 

ft 






000163- 

ft 

TO 

MAKE 

ANY OF 

THE 

ABOVE 


TO MAKE ANY OF THE ABOVE CHANGES* LOAD AND HALT THE PR06RAM BEFORE EX¬ 
ECUTION. INSERT CHANGE THEN EXECUTE MEMORY LOCATIONS OF "ZVSTTY" AND 
"ZVSBUD" MAY BE FOUND IN MAP AT END OF LISTING. 

CONSULT LEVEL-6 T6V MANUAL "AW94" FUR DETAILS On HOW TO LOAD THE TESTS. 

THE FOLLOWING IS A TYPICAL RESULT OF LOADING AND STARTING TO RUN THE 
PROGRAM. 


CLA TEST <PGM NAME> <PGM DATE> <PGM REV> 
ZVSLIB REV. 6.0 
ZVSAF=. 1 <2> 

WDT 

CHAN DEVC ID 
0400 DSKT 2010 
0480 DSKT 2010 
0680 CDR 2008 


0480 DSKT 2010 
0680 CDR 2008 
1200 DISC 2330 
1280 DISC 2330 
1300 LPT 2000 
1380 CONS 2019 
MEMORY LOW 00002B2D 
MEMORY HIGH QQ0Q3FFF 


THE PROGRAM WILL THEN AS<sS 


POWER LINE FREQ. ?; 


THE OPERATOR NOW ENTERS THE POWER LINE FREQUENCY IN DECIMAL 
FOLLOWED BY A CARRIAGE RETURN. THE DEFAULT IS 60 HERTZ* 

IF THIS IS DESIRED A CARRIAGE RETURN IS ENTERED. 

NEXT THE PROGRAM WILL DISPLAYS 

DLC CHANNEL(S) ?5 

AT THIS TIME THt CHANNEL(S) OF THE L1NE(S) YqU WANT 
TO TEST SHOULD BE ENTERED*FOLLOWED BY A CARRIAGE RETURN. 

THE CLA CHANNEL(S) WILL NORMALLY BE DISPLAYED AS AN iTEM(S) IN THE 
CONFIGURATION PRINTOUT. 

THE PROGRAM WILL THEN RESPOND WITH; 


THE OPERATOR HAS TO ENTER ONE OF THE FOLLOWING LETTERS; 

"A" - RUN LINE(S) WITH INTERNAL LOOP TESTS 

"C" - RUN LINE(S) WITH CONNECTOR LOOP TESTS 

IN ORDER TO RUN WITH "C" SELECTED* AN EXTERNAL LOOP CONNECTOR 
MUST BE ATTACHED TO THE LINE ADAPTER(S) EITHtR AT THE 
LINE ADAPTER CONNECTOR OF THE END OF THE CABlE. THE REQUIRED 
EXTERNAL LOOP CONNECTOR AND INSTRUCTIONS FOR ITS USE ARE 
DESCRIBED IN EACH LINE ADAPTER *S PRODUCT MANUAL. 

IF THERE IS NO CONSOLE PRESENT REFER TO "SERIES 60 
LEVEL 6 MODEL 34/36 T 6 V OPERATING INSTRUCTION 
MANUAL" ORDER NO. FL39 FOR INSTRUCTIONS ON ENTERING DATA 
AND INTERPRETING PROGRAM MESSAGES. 

THE PROGRAM WILL RUN APPROXOMATELY I MINUTE PER ASYNCHRONOUS LINE AND 
30 SECONDS PER SYNCHRONOUS LINE. 
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000227 

* 

DURING THE LINE SPEED TEST THE PROGRAM WILL PRINT OUT THE SPEED 

AT WHICH 

00022a 

* 

THE SYNCHRONOUS LINE(S) ARE TESTED AT WITHIN 3% Of THE ACTUAL SPEED* 

000229 

« 

ASYNCHRONOUS L1NE<S) ARE TESTED AT ALL SELECTABLE BAUD KATES. 


000230 

4 



000231 

4 

IF THERE ARE NO FAULTS. IT WILL THEN DISPLAY; 


000232 

4 



000233 

4 

PASS 


000234 

4 



000235 

4 

THE PROGRAM WILL CONTINJE AND TYPE "PASS" WITH NO HALTS BETWEEN 

PASSES, 

00023b 

4 

TO RESTART; START THE PROGRAM AT HEX 100 


000237 

4 



000238 

4 



000239 

4 

ERROR REPORTS 


000240 

4 



000241 

4 

ERRORS WILL CAUSE THE PROGRAM TO HALT* AN ERROR MESSAGE WILL 


000242 

4 

BE DISPLAYED IF A CONSOLE IS PRESENT. 


000243 

4 



000244 

4 

ERROR DISPLAYS ARE AS FOLLOWS; 


000245 

4 


00024b 

4 

ERR YP C ZZZZ 


000247 

4 



000246 

4 

B7 B6 B5 b4 b3 B2 bl I 


000249 

4 

R7 R6 K5 R4 R3 R2 R1 M 


000250 

4 



000251 

4 

Y = TEST TYPE 


000252 

4 

P s LINE NUMBER 


000253 

4 

ZZZZ s ERROR LOCATION IN LISTING. HAS COMMENT 


000254 

4 

GIVING FAILING FUNTION. 


000255 

4 



000256 

4 

BI-b7t It RI-K7* M ARE CONTENTS OF REGISTERS. 


000257 

4 

1NTEKPEKTATIUN OF THESE IS FOR SPECIALIST USAGE. 


000256 

4 



000259 

4 

IN ALL CASES; 


000260 

4 



000261 

4 

R3 s CHANNEL NUMBER 


000262 

4 



000263 

4 

IN GENERAL 


000264 

4 



000265 

4 

R6 a SHOULD BE DATA 


000266 

4 

R5 s ACTUAL DATA 


000267 

4 

R7 * WORD NUMBER IN BLOCK. TRANSFER 


000268 

4 



000269 

4 



000270 

444444444444444444444*4444444444*4*444*4**4*44*444**44*44**4*4**444***4 
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/ 



0000 

ZERO 

tuu 

$ 





XLQC 

ZHNT5A*ZHTH15iZV$HR 





XLQC 

ZHISAZ*ZHIAFB 




XLQC 

ZHWDTC.ZHRTCCtZVSTTY 





XLQC 

ZHRTCI*ZHRTCL 




XLOC 

ZHPFR♦ZHCOMM 

00FP 



ORG 

ZERU*X*FF« 


OOFF 

0000 

STOP 

HLT 

NO ERROR FOUNu IN qlCC 







# 


OPERATOR MUST ENTER 

CLA ADDRESS 


0100 



STRT 

EQU 

S 


0100 

0F8C 




B 

>STP 

BRANCH.TO NORMAL RUN 

0105 





ORG 

ZERU+X*105 * 







CALL 

ZVSKp*ZVSIZ 

INITIALIZE FOK NON-CONSOLE USE 

0105 

FBFO 

0001 






0107 

D380 

0000 

X 





0109 

8700 

0000 

X 


CL 

<ZV$TTY 

CLEAR CONSOLE CHANNEL 

010b 

0F87 




B 

>NTYR 






STP 

CALL 

ZVSKOtMESG 


oioc 

FBCO 

0003 






010E 

0380 

0000 

X 





0110 

0F80 







0111 

1300 







0112 

8980 

1116 


NTYR 

CMZ 

<FWFG 


0114 

09AC 




BNE 

>EDLINT 






* 


ASK FOR POWER LINE FREQ* 

0115 

8C51 




STS 

sSRi 

ASK ONLY ON 6/36 AND 3/34 

0116 

8201 




Lti 

=$R1»«Z»2000« 


0117 

2000 







0116 

0500 




BBT 

>CP40 







CALL 

ZVSQC*MESG9 


0119 

FBCO 

0003 






OUB 

0380 

0000 

X 





Olio 

0F80 







01 IE 

1339 












CALL 

ZV$IP*HRTZ 


01 IF 

FBCO 

0003 






0121 

0380 

0000 

X 





0123 

OF 80 







0124 

1119 











* 


FIND NUMBER OF MILSEC* 

IN RTC TICK 

0125 

8756 



CP40 

CL 

=SR6 


0126 

F870 

C350 



LOR 

$R7,sZ»C350» 


0126 

F300 

1119 



PIV 

$R7t<MRTZ 


012A 

EFOO 

1125 



STR 

$R6*<TL0C 


ouc 

8756 




CL 

»SR6 


0120 

F370 

0064 



PIV 

SR7*5l00 


012F 

FFOO 

1110 



SIR 

$R7*<0IVl 


0131 

7000 




DOR 

SR7,i6 


0132 

F370 

OOOA 



PIV 

$R7*sl0 


0134 

FFOO 

mi 



STR 

$R7»<PIV2 


0136 

EFOO 

1112 



STR 

$R6 »<DIV3 


0136 

8756 




CL 

*$R6 


0139 

F800 

1125 



LPK 

tRJf<TLOC_ 


0138 

7F0A 




MLV 

$R7»slO 


013C 

F300 

1119 



PIV 

$R7 *<HRTZ 


013E 

FFOO 

1113 


# 

* 

* 

STR 

$R7t<PIV4 








4 


INITIALIZE THE ACTIVE LINE TABLE 





# 


initialize THE 

LINE ADDRESS TABLE 





EPLINT 

CALL 

ZVSF*ATLT *CPFLG+3 

*C16 

0140 

FBCO 

0003 






0142 

0380 

0000 

X 





0144 

0F80 







0145 

1186 







0146 

U9A 







0147 

125C 







0148 

FEOO 

1108 



SWR 

$R7 *<CHANL 







CALL 

ZVSQC*M£SG7 


014A 

FBCO 

0003 






G14C 

0380 

0000 

X 





014E 

0F80 







014F 

132B 




CALL 

ZVSIH*ADDRStCB 


0150 

FBCO 

0003 






0152 

0380 

0000 

X 





0154 

0F80 







0155 

118E 







0156 

125B 







0157 

8752 




CL 

bSR2 

CLEAR INDEX 

0158 

AB80 

118E 



LAB 

SB2»<ADDR5 

LOAD SB2 WITH ADDRESS OF ACTIVE LINE TABLE 

015A 

CB60 

125F 



LAB 

$B4,<TSA1 

SET UP FOR TRAP ON 

015C 

CF80 

0000 

X 


STB 

$B4.<ZHNTSA 

UNAVAILABLE RESOURCE 

015E 

CB80 

0192 



LAB 

$B4*<N0PEVF 

0160 

CF80 

0000 

X 


STB 

SB4,<ZHTH15 


0162 

986E 



SALT 

LPR 

$R1»SB2*+SR2 

LOAD ADDRESS FROM TABLE 

0163 

1931 




BEZ 

$R1»>C0N3 

0164 

9570 

•FFCO 



and 

SRlt»Z»FFCO* 

STRIP CHANNEL WITH HEX FFCO 

0166 

9970 

03C0 



CMR 

SRl*sX'3C0* 

COMPARE CHANNEL WITH HEX 3C0 

0166 

0302 




B(j 

>RCK1 

BRANCH IF GREATER 

0169 

0F96 




B 

>PEVNF 

CHANNEL NUMBER TO SMALL 

016A 

1E26 



RCK1 

adv 

$Rl f *X»26» 

PUT FUNCTION IN 

016B 

6055 




10 

5$R5t*$Rl 

INPUT DEVICE NUMBER 

016C 

0051 







0160 

C855 




LOR 

$R4*sSR5 


016E 

0570 

FFOO 



AND 

SR5**Z*FFQ0* 


0170 

0970 

3100 



CMR 

$R5*bZ«3100* 

CQMPARt DEVICE NUMBER RESPONSE 

0172 

0980 




BNE 

>DEVNF 


0173 

B851 




LPR 

$R3 »*$R1 

SET SR3. FOR INDEX OF LINE NUMBER 

0174 

B570 

03C0 



AND 

SR3*aX*3C0* 

0176 

3047 




SQR 

SR3 *7 


0177 

CF30 

1186 



STR 

$R4*<ATLT.$R3 

STORE ID INTO ACTIVE LINE TABLE 

0179 

9570 

FCOO 



AND 

SRItaZ*FCOO* 





5 
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000353 

017b 

9F00 

1108 



STR 

$R1» <CHANL 


000354 

0170 

OF 80 

0162 



0 

<SALT 


000355 





* 




000356 





DbVNF 

CALL 

ZVSTC.ERMG1 

OLCC NUT FOUNu ON THIS ADDRESS 


017F 

F6C0 

0003 







0181 

0380 

0000 

X 






0163 

0F80 








0184 

1366 







000357 

0185 

8802 




DEC 

= $R2 


000356 

0186 

9820 

118E 



LOR 

$R1»<ADDRS.$R2 STORE AOORESS THAT FAILED 

000359 

0188 

9F00 

1125 


PDRS 

STR 

$R1»<TLOC 


000360 






CALL 

ZVSTH.TLOC 

PRINT AOORESS THAT FAIL 


018A 

FBCO 

0003 







018C 

0380 

0000 

X 






018E 

0F80 








018F 

1125 







000361 

0190 

0F80 

0140 



0 

<EOLINT 


000362 





ft 




000363 

0192 

6755 



NODbVF 

CL 

= $R5 

TRAP HANDLER ROUTINE 

000364 

0193 

0003 




RTT 



000365 





ft 




000366 





ft 




000367 





ft 




000366 





ft 




000369 





ft 

CHECK 

TO SEE IF THIS 

IS A CLA I CAN TtST 

000370 





ft 




000371 

0194 

8751 



COM3 

CL 

-$Ri 

CLEAR INDEX 

000372 

0195 

A080 

1186 



LAO 

$B2*<ATLT 


000373 

0197 

9680 

117F 



LAB 

$01*<BIT0 


000374 

0199 

2CF6 



CAK 

LDV 

$R2.s-10 


000375 

0 19A 

C85E 



HON 

LOR 

$R41 $02• + $R1 


000376 

0190 

1009 




CMV 

$Rl*s9 


000377 

019C 

0910 




BE 

>C0N3A 


000376 

0190 

4970 




0E2 

$R4 » >RON 


000379 

019t 

C92 1 



CYN 

CMR 

$R4 « $01•$R2 


000380 

019F 

097A 




BE 

>CAK 


000381 

01 AO 

27FE 




OINC 

$R2t>CYN 


000382 






CALL 

ZV$T C«ERMG2 



01A1 

FOCO 

0003 







01 A3 

0380 

0000 

X 






01A5 

0F80 








01A6 

1376 







000383 

01A7 

8801 




DEC 

s$Rl 


000384 

01A6 

1007 




SOL 

$R11 7 


000385 

01A9 

9400 

1108 



OR 

$R1« <CHANL 


000386 

01AB 

OF 00 




b 

>PORS 


000387 





ft 




000388 

01 AC 

2CF4 



C0N3A 

LOV 

$R2*»-12 

NUMBER OF I/O TO BE CHANGED 

000389 

01 AD 

9800 

118b 



LOR 

$R1»<A00RS 

LOAD $K1 WITH ADDRESS OF CLA ACTIVE 

000390 

0 l AF 

0080 

1106 



LAO 

$65 *<FID* 1 

PUT ADDRESS OF CONTROL TABLE IN $05 

000391 

oibi 

C870 

003F 


ALL 

LOR 

$R4.sX*3F» 

LOAD MASK TO CLEAR CHANNEL 

000392 

0103 

9570 

FCOO 



ANO 

$Rl*sZ»FC00» 

CLEAR SUBCH. FUNCTION 

000393 

0105 

C525 




AND 

$K4«$B5*$R2 

CLEAR CHANNEL 

000394 

0106 

9454 




OR 

$R1 * s$R4 

put channel number in 

000395 

0107 

9F25 




STR 

$R1*$B5.$R2 

STORE IT BACK IN CONTROL TABLE 

000396 

0168 

27F9 




OINC 

$K2 »>ALL 


000397 

0109 

8700 

111F 



CL 

<PSFG 

CLEAR PRINT SYNC, SPEED FLAG 

000398 

0100 

8700 

1117 



CL 

<HGSPD 

CLEAR HIGH SPtED FLAG 

000399 

0160 

8740 

0F5A 



CL 

HISPO 


000400 

Ol.BF _ 

F900 1108 



CMR 

$R7*.<CHANL 

CHECK 1 Q_. OjNLY PRINT . ONCE 

000401 

oici 

0910 




BE 

> INVO 


000402 





ft 




000403 





ft 


PRINT FIRMWARE 

REV. 

000404 





ft 




000405 

01C2 

3001 




SQL 

$R3 * 1 

SHIFT $R3 TO ALIGN WITH CHANNEL NUMBER 

000406 

01C3 

C380 

0AF3 



LNJ 

$B4»<GENITZ 

INITIALIZE CONTROLLER 

000407 

01C5 

E380 

0B5E 



LNJ 

$B6t<R0LCT 

READ LOCATION 1 IN LCT TU PRINT REV. 

000408 

01C7 

0000 




DC 

o • 

ADDRESS 

000409 

01C8 

0002 




DC 

2 

RANGE 

000410 





ft 




000411 

01C9 

8780 

112b 



CLH 

<LCI V 


000412 

01CO 

C800 

112E 



LOR 

$R4,<LCTV 


000413 ' 

01C0 

CFOO 

llbl 



STR 

$R4,<FR1MRV 

STORE FIKMWARl REV NUMBER 

000414 

01CF 

490F 




BEZ 

$R4*>1NV0 


000415 






CALL 

ZV$TC.FREV 



0100 

FOCO 

0003 







0102 

0380 

0000 

X 






01D4 

0F80 








0105 

135C 







000416 






CALL 

ZV$TO»LCTV 



OlOo 

FBCO 

0003 







0108 

0380 

0000 

X 






010A 

0F80 








0100 

112b 







000417 

01DC 

8A80 

1116 



INC 

<FWFG 

SET FLAG TO INHIBIT PRlNI OUT 

000416 





ft 




000419 





ft 


ASK WHAT MODE 

OF OPERATION 

000420 





ft 




000421 





INVD 

CALL 

ZV$UC.MESG6 



010E 

FBCO 

0003 







01E0 

0380 

0000 

X 






01E2 

OF 80 








01E3 

1328 







000422 






CALL 

ZV$IA»TP2*TLQC 


01E4 

FBCO 

0003 







01E6 

0380 

0000 

X 






01E6 

OF 80 








01E9 

1127 








0 11A 

1125 







000423 

OlEb 

7C08 




LOV 

$R7 *»8 


000424 

01EC 

0380 

0B4C 



LNJ 

$05*<TDLAY 

DELAY FOR DLC CONSOLE 

000425 

01EE 

C80Q 

1125 



LOR 

$R4*<TL0C 


000426 

01F0 

4048 




SUR 

$R4 « 8 

SHIFT MODE TYPE ANSWER OVER 

000427 

01F1 

4053 




CMV 

$R4,sX'53‘ 

IF »S» DO SHORT TEST ONLY 

000428 

01F2 

0900 

021b 



BE 

<SHTST 


000429 

01F4 

4043 




CMV 

$R4»=X*43» 

IF »C» DO CABLE LOOP TESl ONLY 

000430 

01F5 

0900 

022F 



BE 

<CABLP 


000431 

01F7 

4040 




CMV 

$R4*=X»4D' 

IF «M» GU TO PATCH ROUTINE 

000432 

01F6 

0900 

0218 



BE 

<PCH 


000433 

01 FA 

4041 




CMV 

$R4,sX'41» 

IF 'A* DU iNTtRNAL LOOP TEST ONLY 

000434 

OlFO 

09E3 




BNb 

> 1NV0 


000435 





ft 




000436 

01FC 

8700 

1100 



CL 

<COUNT 




TITLE DCMC2* »REV A* 


CLA TEST (SAP) 


PAGE 


000437 

01FE 

8700 

112A 


CL 

<SHORT 


00043b 

0200 

C870 

C714 

KTST 

LOR 

$R4.cZ'C714* 

STORE LINE CONTROL FOR INTERNAL LOOP 

000439 

0202 

CFOO 

1286 


str 

$R4.<LC1LCR 


000440 

0204 

A380 

0246 


LNJ 

$62♦ <LPT A 

TEST a: go to loop test 

000441 

0206 

A380 

02AF 


LNJ 

$62 .<SP5YTC 

TEST 61 60 TU LINE SPEED TEST 

000442 

0208 

A380 

03F1 


LNJ 

$82♦<CRPTB 

TEST O: GO To CRC AND PARITY TEST 

000443 

020A 

A380 

0405 


LNJ 

$B2 »<CHSZTD 

TEST E! GO To CHARACTER SIZE TEST 

000444 

020C 

A380 

0520 


LNJ 

$B2 »<STBIT E 

TEST FJ GO TU STOp BIT TESI 

000445 

020E 

A38Q 

0566 


LNJ 

$62 »<PARERF 

TEST GJ GO To PARITY ERROR TEST 

00044b 

0210 

A380 

0617 


LNJ 

$62 .<5TIOG 

TEST H: GO TU SlOp I/O TESI 

000447 

0212 

A380 

06EA 


LNJ 

$B2 .<UGRNTH 

TEST Ji GO TU OVERRUN AND UNDERRUN TEST 

00044b 

0214 

A380 

0BE1 


LNJ 

$62 *<EDPCK 


000449 

0216 

OF 80 

0200 


6 

<RTST 


000450 




4 




000451 




PCH 

CALL 

ZV$PCH 



0218 

F6F0 

0001 






021A 

0380 

0000 

X 




000452 

021C 

0F80 

01DE 


6 

<INvD 


000453 




4 




000454 

02 IE 

C870 

C714 

5HTST 

LOR 

$R4»s2•C714 * 


000455 

0220 

CFOO 

1286 


STR 

$R4 » <LC1LCK 

5T0RE LINE CONTROL FOR INTERNAL LOOP 

000456 

0222 

CFOO 

112A 


STR 

$R4,<SH0RT 

SET FLAG 

000457 

0224 

A380 

0246 

• 

LNJ 

$62. <LPT A 

TEST AJ GO Tu LOOp TEST 

00045b 

0226 

A380 

02AF 


LNJ 

$62»<5P5YTC 

TEST B; LINE aPEED TEST 10 SET HIGH SPEED 1 

000459 

0228 

A380 

03F1 


LNJ 

$B2♦<CRPTB 

test o; CRC and parity test 

000460 

022A 

A380 

0566 


LNJ 

$B2,<PARERF 

test g: parity error test 

000461 

022C 

A380 

0BE1 


LNJ 

$62.<EDPCK 

print pass message 

000462 

022E 

OFFO 



6 

>SHI ST 


000463 




4 




000464 

022F 

4C07 


CA6LP 

LOV 

$K4,=7 


000465 

0230 

CFOO 

1106 


STR 

$R4» <CQUNT 


000466 

0232 

8700 

112A 


CL 

<SHORT 


000467 

0234 

C870 

C314 

RTSTl 

LOR 

$R4 t s2»C314* 

STORE line CONTROL FOR CONNECTOR LOOP 

00046b 

0236 

CFOO 

1286 


STR 

$R4 *<LC1LCR 


000469 




4 




000470 

0238 

A380 

0246 


LNJ 

$62 . <LPTA 

TEST AJ GO TU LOOp DATA TEST 

000471 

023A 

A380 

0777 


LNJ 

$62 .cLPCBLK 

test k; go ru loop dss in osc 

000472 

023C 

A380 

0800 


LNJ 

$62 *<XMMSL 

TEST LI GO Tu XMIt MARK 6 SPACE TEST 

000473 

023E 

8880 

HOB 


DEC 

<COUNT 


000474 

0240 

8980 

1106 


CM2 

<COUNT 


000475 

0242 

09F2 



6NE 

>RTST1 


000476 

0243 

A380 

0BE1 


LNJ 

$B2 »<EOPCK 


000477 

0245 

OFEA 



6 

>CABLP 


000476 




* - - 

- — ■ - 



000479 




4 




000480 




4 


DATA LOOP TEST 


000481 




4 




000482 

0246 

C870 

4120 

LPTA 

LOR 

$R4 » = A 1 A * 


000483 

0248 

CFOO 

1364 


5TR 

$R4 *<ERMG+1 


000484 

024A 

C870 

0E18 


LOR 

$R4,=X»E18* 

STORE FAST LINE SPEED 

000485 

024C 

CFOO 

128A 


STR 

$R4 »<LCTIS 


000486 

024E 

6380 

0986 


LNJ 

$B3.<CLFG 

CLEAR ALL TEST FLAGS 

000487 

0250 

6700 

111A 


CL 

<MA5K 

SET MASK FOR 4V$C 

000488 

0252 

8700 

128C 


CL 

<LC1SYF 

CLEAR SYNC. FLAG FOR ASYNC. LINES 

000489 

0254 

7C06 



LOV 

$R7*s6 

NUMBER OF 30 MS DELAY 

000490 




4 




000491 




4 


TEST ASYNCHRONOJS 

LINES WITH BAUD RAfE 

000492 




4 


AT 9600 BAUD* 1 

WITH 2 STOP 61 IS 

000493 




4 




000494 

0255 

968jQ 

UZ6_ 

11 

LA6„ 

$6Lt<A5_YNA- 

LIM TYPE 

000495 

0257 

6380 

0881 

T1A 

LNJ 

$63.<DTAL0P 


000496 

0259 

0F85 



6 

>T2AA 


000497 

025A 

1204. 



DC 

<WCP1 


000498 

0256 

1286 



oc 

<LCT 1 


000499 

025C 

003F 



OC 

(OFLT-OOUT) 

RANGE IN WOROb 

000500 

0250 

119E 



OC 

<000T 

TRANSMIT BUFFER ADDRESS 

000501 




* 




OOO502 




4 


TEST CURRENT LOOP 

ASYNCHRONOUS 

000503 




4 




000504 

025E 

8980 

1106 

T2AA 

CM2 

<COUNT 

IF CONNECTOR LOOP 

000505 

0260 

0900 

0266 


BE 

<T2 

CHANGE SPEED TO TEST AT 9600 BAUD 

000506 

0262 

C870 

0E18 


LOR 

$R4tsX»E18* 


000507 

0264 

CFOO 

128A 


STR 

$R4*<LCT1S 


000508 

0266 

C871 


T2 

LOR 

$R4.+$B1 

LOAD ID TYPE INTO $R4 

000509 

0267 

C900 

1177 


CMR 

$K4 *<A5YNC 

CHECK 10 SEE lF ALREADY DONE 

000510 

0269 

0902 



BE 

>T2A 


000511 

026A 

OPEQ 



B 

>TIA 


000512 


0266 


T2A 

EQU 

$ 


000513 

0266 

8980 

112A 


CM2 

<SHORT 


000514 

0260 

09A1 



6NE 

>NC6L 


000515 

026E 

C870 

0118 


LOR 

$R4 f sX»118» 

CHANGE BAUD RATE TO 50 

000516 

0270 

CFOO 

128A 


STR 

$R4,<LCT1S 


000517 

0272 

7C78 



LOV 

$R7»s120 

NUMBER OF 30 MS DELAY FOR DATA TRANSFER 

000518 




4 




000519 




4 


TEST ASYNCHRONOJS 

LINES WITH NEW BAUD RATE 

000520 




4 


AT 50 BAUD. WITH 2 STOP BITS 

000521 




* 




000522 

0273 

C870 

0018 

T3 

LOR 

$R4.sX»18» 


000523 

0275 

CFOO 

128A 


STR 

$R4f<LCT15 


000524 

0277 

9680 

1176 


LAB 

$B1.<ASYN1 

LOAD LINE TYPc 

000525 

0279 

6380 

0881 

T3A 

LNJ 

$63 »<OTALOP 

LOOP SOB-ROUTINE 

000526 

0276 

0F85 



B 

>T4 


000527 

027C 

12D4 



OC 

<WCP1 


000528 

0270 

1286 



DC 

<LCT 1 


000529 

027E 

0007 



oc 

7 


000530 

027F 

UAE 



OC 

<00UT1 


000531 




4 



t 

000532 




4 


TEST CURRENT LOOP 

ASYNCHRONOUS 

000533 




4 




000534 

0280 

C871 


T4 

LOR 

$R4.+$B1 

LOAD ID TYPE INTO $R4 

000535 

0281 

C900 

1177 


CMR 

$K4»<ASYNC 

CHECK IQ SEE IF ALREADY DONE 

000536 

0283 

0902 



BE 

>T4A 


000537 

0284 

0FF5 



B 

>T3A 


000538 


0285 


T4A 

EUU 

$ 


000539 

0285 

C800 

1286 


LOR 

$R4,<LC1LCR 

CHECK LINE CONTROL FOR CONNECTOR LOOP 

000540 

0287 

8204 



L6 

s$R4.s2«0400« 

IF CONNECTOR LOOP SET DIRECT CONNECT BIT 


0288 

0400 






000541 

0289 

0505 



B6T 

>NCBL 


000542 

028A 

C870 

CB14 


LOR 

$R4.s2»C614» 


000543 

028C 

CFOO 

1286 


STR 

$R4.<LC1LCR 


000544 

028E 

C870 

3A18 

NCBL 

LOR 

$R4.sX»3Ai8» 

PUT IN SYNC. CHARACTER TO TEST 

000545 

0290 

CFOO 

128A 


STR 

$R4,<LCT1S 

SYNC. LINE TYPES 

000546 

0292 

C870 

G21C 


LOR 

$R4.5X*21C* 

SET LCI SYNC. FLAG 
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TITLE DCMC2» 'REV A' CLA TEST (SAF) 


PAGE 


000547 

00054a 

000549 

000550 

000551 

000552 

000553 

000554 

000555 

000556 

000557 

00055b 

000559 

000560 

000561 

000562 

000563 

000564 

000565 

000566 

000567 

000566 

000569 

000570 

000571 

000572 

000573 

000574 

000575 

000576 

000577 

000576 

000579 

000580 

000581 

000582 

000583 

000584 

000585 

000586 

000587 

000588 

000589 

000590 

000591 

000592 

000593 

000594 

000595 

000596 

000597 

000598 

000599 

000600 

000601 

000602 

000603 

000604 

000605 

000606 

000607 

000608 

000609 

000610 

000611 

000612 

000613 

000614 

000615 

000616 

000617 

000616 

000619 

000620 

000621 

000622 

000623 

000624 

000625 

000626 

000627 

000626 

000629 

000630 

000631 

000632 

000633 

000634 

000635 

000636 

000637 

000638 

000639 

000640 

000641 

000642 

000643 

000644 

000645 

000646 

000647 

000646 

000649 

000650 

000651 

000652 

000653 

000654 

000655 

000656 

000657 

000658 

000659 


0294 

CFOO 

128C 

0296 

7C2D 


0297 

9B80 

1178 

0299 

B380 

0881 

029B 

0F85 


029C 

12D4 


029D 

1286 


029E 

002F 


029F 

UAE 


02 AO 

C871 


02A1 

C900 

1179 

02 A3 

0902 


02A4 

0FF5 


02A5 

9B80 

117A 

02A7 

B380 

0881 

02A9 

0F85 


02 AA 

12D4 


02AB 

1286 


02AC 

002F 


02AD 

UAE 


02AE 

8382 



02 AF 

C870 

4220 

02B1 

CFOO 

1364 

02B3 

B380 

098B 

0285 

C800 

1119 

0267 

4002 


02B8 

4EF8 


02B9 

CFOO 

1 IDF 

02BB 

4E10 


02BC 

CFOO 

11E0 

02BE 

C800 

1119 

02C0 

4F0A 


02C1 

CFOO 

1 IDE 

02C3 

CB80 

02CD 

02C5 

CF80 

1281 

02C7 

CB60 

127E 

02C9 

CF8Q 

0004 

02C8 

8E70 

8004 

02CD 

4C01 


02Ct 

CFOO 

0000 

0200 

CB80 

03D6 

0202 

CF80 

127B 

0204 

CB8_0 

1278 

02D6 

CF80 

0001 

02D8 

8980 

112A 

02DA 

0996 


0208 

4C0A 


02DC 

CFOO 

HOD 

02DE 

8700 

129C 

02E0 

8700 

1107 


02E2 

4C18 


02E3 

9880 

1176 

02E5 

E680 

11F2 

02E7 

8380 

0318 


02E9 

4C18 


02EA 

9B80 

1177 

02EC 

EB80 

11F2 

02EE 

B380 

0318 

02FO 

C870 

OFOO 

02F2 

CFOO 

1120 

02F4 

EB80 

1120 

02F6 

CB80 

03EO 

02F8 

CF80 

1278 

02FA 

8A80 

1107 

02FC 

C870 

021C 

Q2FE 

CFOO 

129C 

0300 

4C08 


0301 

CFOO 

hod 

0303 

C870 

C118 


0305 

9880 

1179 

0307 

6380 

0318 

0309 

9880 

1178 

0308 

8380 

0318 

030D 

9880 

H7A 

030F 

8360 

0316 

0311 

8A80 

111F 


T5 


T30 


STR 

$R4 »<LC1SYF 


LDV 

$R7 t s4 5 

NUMBER of 30 MS DELAY FOR 800 


TEST SYNCHRONOUS (3A 

AS SYNC. CHAR.) 

LAB 

$81♦<SYNC 

LOAD LINE TYPE 

LNJ 

SB3 t<DTALOP 

LOOP SUB-ROUTINE 

8 

>T5 


DC 

<WCP1 


DC 

<LC 1 1 


DC 

(DPLT-D0UT1) 


DC 

<DOUT 1 



TtST BI"SYNCHRONOUS 

LINES (3A AS SYNC. CHAR.) 

LDR 

$R4 *♦SBl 

LOAD ID TYPE INTO $R4 

CMR 

S>R41 <BI SYNC 

CHECK TO SEE IF ALREADY DONE 

BE 

> T 6 


8 

>UA1 



TEST MIL 188 SYNCHRONOUS (3A AS SYNC. CHAR.) 

LAB 

$81»<SYN188 

LOAD LINt TYPt 

LNJ 

$83i<DT ALOP 

LOOP SUB-ROUTINE 

8 

>7 30 


DC 

<WCP1 


DC 

<LCT 1 


DC 

(DFLT-D0UT1) 


DC 

<DOUT1 


JMP 

$82 

jump out of loop test 


LINE SPEED TEST 


X 


X 


X 


SPSYTC 

LDR 

$K4♦=A'B ' 




STR 

$R4 *<ERMG+1 




LNJ 

$83♦<CLFG 

CLEAR ALL TEST FLAGS 



LDR 

$R4 »<HRT2 

CALCULATE THE LOW AND HIGH RAN6E OF 

RTC TICKS 


SOE 

$R4,2 




ADV 

$K4,=-8 




STR 

$R4»<SECL 




ADV 

$K4»c16 




STR 

$R4,<SECH 




LDR 

$R4,<HRTZ 

CALCULATE NUMoER OF RTC TICKS IN 5 

SEC. 


MLV 

$R4 10 




STR 

$R4 » <FIVSEC 




LAB 

$B4»<SPSYT1 

SET UP INTERRUPT VECTORS AND 



STB 

$84 »<ISA4P 

pointers to Change running level to 

4 


LAB 

$B4.<ISA4+$AF 




STB 

$B4,<ZHISAZ*4*$AF 




LEV 

sZ'8004' 

CHANGE RUNNING LEVEL TO 4 


SPSYT1 

EDV 

$R4*si 

SET RTC LEVEL TO l 



STR 

$R4.<ZHRTCL 




LAB 

$B4 » <NOSPD 

SET RUPT POINTER FOR RTC INTERRUPT 



STB 

$84♦<1SA1P 




UAH 

$B4,<ISAH$AF 

SET BUPT.VECtOB FOR LEVEL. 1-HURT 



STB 

$B4 *<ZHI5AZ*$AF 




CM2 

<SHOKT 




BNE 

>STSP1 




LDV 

$R4i=10 

STORE CHAR. SiZE 



STR 

$R4,<CSB 




CL 

<LC35YF 

clear sync, flag for async. lines 



CL 

<BYTP 

SET BY IE POSITION JO ZERO 


* 

TEST 

LINE SPEEDS FOR ASYCHRONOUS NEW BAoD RAje 



LDV 

$K4,sX*18» 

SET $R4 WITH FIRST SPEED TO TEST (ASYNC.) 


LAB 

$BH<ASYN1 

LOAD LINt TYPt 



LAB 

$B6 »<NSPTBL 

LOAD ADDRESS OF CHAR. NUMBER TABLE 



LNJ 

$B3 »<SPDTLP 




TEST LINE SPEEDS FOR ASYCHRONOUS CURRENT LOOp 


* 

STSP1 


* 


* 

# 

* 


# 

# 

# 


* 

# 


LDV 

$R4»5X»18* 


LAB 

$B1♦<A5YNC 


LAB 

$B6 »<NSPTBL 


LNJ 

$B3»<SPDTLP 


LDR 

$R4»*3840 

SET RANGE FOR SYNC, LINES 

STR 

$R4 *<RANGE 


LAB 

$86» <RANGE 

LOAD ADDRESS OF RANGE FOR SPEED TEST SUB-ROUT 

LAB 

$B4 * <IRRG 

SET RUPT POINTER FOR RTC INTERRUPT (SYNC.) 

STB 

$B4 »<ISA1P 


INC 

<BYTP 

SET BY IE POSITION JO ONE 

LDR 

$R4,=X'21C* 

SET LCT SYNC. LINE FLAG 

STR 

$R4 * <LC3SYF 


LDV 

$K4*s8 

SET CHAR. SIZE FOR SPEED CALCULATION 

STR 

$R4,<CSB 


LDR 

$R4»*Z'CH8' 

LOAD $K4 WITH SYNC CHARACTER TO BE USED 


MEASURE AND PRINT LINE SPEED FOR BI-5YCHR0N0US 

LAB $bl»<BISYNC LOAD ADDRESS OF LINE TYPE 

LNJ $B3 »<5PDTLP GO TO LINE SPEED TEST 

MEASURE AND PRINT LINE SPEED FOR SYCHRQNOUS 

LAB $B1»<SYNC LOAD ADDRESS OF LINE TYPE 

LNJ $B3»<SPDTLP GO TO LINE SPEED TEST 

MEASURE AND PRINT LINE SPEED FOR MIL 188 


LAB 

$BI*«$YNI88 


LNJ 

$B3»<5PDTLP 

GO TO LINE SPEED TtST 

INC 

<PSFG 

set flag to inhibit printout 




PAGE 


TITLE DCMC2* *REV A* CLA TEST (SAF) 


000660 






CALL 

ZV$RD 

RE-INIUAL1ZE INTERRUPT VECTOR AND POINTERS 6 


0313 

FBFO 

0001 







0315 

0380 

0000 

X 




• 

000661 





# 



SET LEVEL TO ZERO 

000662 

0317 

8382 




JMP 

$62 

JUMP OUT OF TfcST 

000663 





# 




000664 





# # * 

# * * 

******** *-* 

*********************** 

000665 





* 




000666 







LINE SPEED LOOP 


000667 





* 




000666 

0318 

8F00 

1155 


SPDTLP 

SAVE 

<SAV3**Z»Q810* 

SAVE REGS* 


031A 

0810 







000669 

03 IB 

8753 




CL 

s$R3 

» $R3 

000670 

031C 

9F80 

0320 



STB 

$B1*<ST1 

STORE LINE TYPE FOR FIND LINE ON 

000671 





# 




000672 

031E 

0380 

0B38 


JPT3 

LNJ 

$B5 *<FLN 

FIND LINE ON UF TYRE BELOW 

000673 

0320 

0000 



ST1 

RESV 

$AF,0 

LINE TYPE FOUND AND STORED HERE 

000674 

0321 

8383 




JMP 

$63 

NO MORE LINE THIS TYPE END TEST 

000675 





* 




000676 

0322 

8751 




CL 

= $R1 

CLEAR $R1 

000677 

0323 

8752 




CL 

s$R2 

CLEAR INDEX ON NEW LINE 

000676 

0324 

CFOO 

129 A 


NXSPD 

STR 

$R4,<LCT3S 

STORE LINE SPEED IN LCT TABLE 

000679 





* 




000680 

0326 

C808 

0320 


NXSP01 

LDR 

$R4,*<STi 


000681 

0328 

C900 

1177 



CMR 

$R4,<ASYNC 


000682 

032A 

0983 




BNE 

>NXSPD2 

6 IF NOT CURRENT LOOP ADAPT. 

000683 

032B 

C380 

09F0 



LNJ 

$64«<SCLS 

SET CURRENT LOOP ADAPTER SPEED 

000684 

0320 

C380 

0AF3 


NXSPD2 

LNJ 

$84*<GENITZ 

GENERAL INITIALIZE 

000685 

032F 

C570 

FF80 



ANO 

$R4 # =Z , FF80« 

PREPARt TO WRITE CHANNEL PROG 

000686 

0331 

C470 

0040 



OR 

$R4**X*40« 


000687 

0333 

CFOO 

110A 



STR 

$R4 »<CHNZ 


000688 






CALL 

zv$mlw*chlpi«ragi* 

HX200 *CHNZ 


0335 

FBCO 

0003 







0337 

0380 

0000 

X 






0339 

0F80 








033A 

0BF8 








033b 

1206 








033C 

1250 








0330 

110A 







000689 






CALL 

ZV$MLW*CHLPlAtRAG2 

»HX400*CHNZ 


033E 

FBCO 

0003 







0340 

0380 

0000 

X 






0342 

0F80 








0343 

0C34 








0344 

1207 








0345 

125E 








0346 

110 A 







000690 





# 




000691 

0347 

0380 

0B24 



LNJ 

$65 *<SETLCT 

SEND OUT LCT TABLE 

000692 

0349 

1296 




DC 

<LU3 


000693 





# 




000694 

034A 

C826 




LDR 

$R4,$B6.$R2 

LOAD $K4 WITH RANGE IN BYTES 

000695 

034b 

8A03 




INC 

s$R3 


000696 

034C 

0380 

0B82 



LNJ 

$B5 *<MCCB 

FORM CC6 FOR XMIT 

000697 

034E 

119E 




DC 

<DOUT 


000698 

034F 

0060 




DC 

X * 60 * 


000699 

0350 

8803 




DEC 

#$R3 

CHANGE TO RECv. SIDE 

000700 

0351 

4900 

03C4 



BE2 

$R4»<TSNL 


000701 

0353 

CF55 




STR 

$R4»=$R5 


OOO702 

0354 

&.9.7Q OjLCO 


DLCC.6. 

CMR 

$R4 ♦s.X.* 3C0! 

.MAKi:.MULTIPLE C£B._LF .LARUE R.A.NGE 

000703 

0356 

0A80 

0362 



BALE 

<SGCCB 


000704 

0358 

C870 

03C0 



LDR 

$R4,=X*3C0» 


000705 

035 A 

0380 

0B82 



LNJ 

$65 » <MCCB 


000706 

035C 

1C00 




DC 

<DIN 


000707 

0350 

0040 




DC 

X * 40 * 


000708 

Q35fc 

8801 




DEC 

= $R1 


000709 

035F 

0254 




SUB 

$R5«s$R4 


000710 

0360 

0F54 




STR 

$R5»=$R4 


000711 

0361 

0FF3 




B 

>dlccb 


000712 





* 




000713 

0362 

0380 

0B82 


SGCCB 

LNJ 

$65 *<MCCB 

FORM CCB FO RtCV. 

000714 

0364 

1C00 




DC 

<D IN 


000715 

0365 

0060 




DC 

X 1 60 * 


000716 





* 




000717 





* 




000718 





# 

START 

1/0 XMiT FIRST THEN 

RECV. 

000719 





* 




000720 

0366 

7C01 




LDV 

$R7 »*! 


000721 

0367 

8A03 




INC 

= $R3 

CHANGE TO XMIT SIDe 

000722 

0366 

C800 

10FC 



LDR 

$R4»<FOCC 


000723 

036A 

C380 

0B7E 



LNJ 

$B4 »<CGSCH 


000724 

036C 

8000 

1180 



10 

<61T1*s$R4 



036E 

0054 







000725 

036F 

0703 




BIOT 

>MELC01 


000726 

0370 

F380 

0BA3 



LNJ 

$87,<ERROR 


000727 

0372 

0380 

0B4C 


MELC01 

LNJ 

$B5,<TDLAY 


000726 

0374 

8803 




DEC 

s$R3 


000729 





* 




000730 

0375 

8801 




dec 

= $Ri 


000731 

037o 

C800 

10FC 



LDR 

$R4* <FOCC 


000732 

0376 

C380 

0B7E 



LNJ 

$B4♦ «CGSCH 


000733 

037A 

F800 

11DE 



LDR 

$R 7 *<FJVSEC 

SYNC. OP CLOCn 

000734 

037C 

FFOO 

0000 

X 


STR 

$R 7 » <ZHRTCC 

STORE KTCC WITH 5 SEC OF TICK5 

000735 

037E 

0004 




RTCN 


TURN UN REAL TIME CLOCK 

000736 

037F 

F900 

0000 

X 

SYCT 

CMR 

$R7,<ZHRTCC 


000737 

0381 

027E 




BL 

>SYCT 


000738 

0382 

8040 

ODFD 



10 

Bil l *s$R4 

START 1/0 


0364 

0054 







000739 

0385 

0703 




BIOT 

> JPT1 


000740 

0386 

F380 

0BA3 



LNJ 

$6 7 »<ERROR 

ERROR; 1/0 WAS NAk»ED 

000741 

0388 

C380 

OBOE 


JPT1 

LNJ 

$B4»<INXT 

INPUT NEXT STATUS 

000742 

038A 

C800 

1101 



LDR 

$R4 *<F IS 

LOOP ON INPUT STATUS UNTIL STATUS COMPLETE 

000743 

038C 

C380 

0B7E 



LNJ 

$B4 *<CGSCH 


000744 

038E 

8055 



ST3 

10 

=$R5*=$R4 

INPUT 6TATUS 


038F 

0054 







000745 

0390 

0703 




BIOT 

> JPT 2 


000746 

0391 

F380 

0BA3 



LNJ 

$B 7 »<ERROR 

ERROR; 1/0 WAS NAk«ED 

000747 

0393 

6205 



JPT2 

LB 

s$R5*=Z*1000* 

SEE IF STATUS COMPLETE 


0394 

1000 







000748 

0395 

0506 




BbT 

> JPT 5 


000749 

0396 

0870 

0100 



LDR 

$R5f=Z»0100* 


000750 

0398 

5701 

FFFF 



BDEC 

$R5 » $ 

TIME DELAY FOR STATUS CHECK 

000751 

039A 

0FF4 




B 

>S13 




4 ' 'N 






TITLE DCML2t »REV A* 


CLA TEST (SAF) 


PAGE 


9 



000752 

039b 

17ED 



JPT5 

BINC 

$K1*>JPT1 

LOOP TU FINAL CCb 

000753 





ft 




000754 

039C 

0005 




RTCF 


TURN OFF REAL TIME CLOCK 

000755 

0390 

C800 

UOE 



LDR 

$R4.<FIVSEC 

CALCULATE ELAPSED TIME 

000756 

039F 

C200 

0000 

X 


SUB 

$R4*<ZHRTCC 


000757 

03A1 

8755 




CL 

s$R5 


000756 

03A2 

8980 

1129 



CM2 

<56IFG 

CHECK FLAG FOP STOp BIT IIME TEST 

000759 

03A4 

0980 

0577 



6NE 

<SBT E 


000760 





ft 




000761 

03A6 

8980 

129C 


JPT4 

CMZ 

<LC35YF 

SEE IF SYNC. uR ASyNC. LINE 

000762 

03A8 

09A2 




6NE 

>SYNSP 


000763 

03A9 

C900 

1 IDF 



CMR 

$K4 *<5ECL 

SEE IF NUMBER OF TICKS WITHIN 

000764 

Q3Ab 

0A84 




BALE 

>TRYH 

ACCEPTABLE RAhGE 

000765 

Q3AC 

C9Q0 

11E0 



CMR 

$R4»<SECH 


000766 

03AE 

080E 




6AL 

>TYXL 


000767 

03AF 

F800 

1114 


TRYH 

LDR 

$K 7 »<ERF 

CLEAR tRKOR FlAG To 

000766 

03bl 

8700 

1114 



CL 

<EKF 

SUPPRESS REGISTER DUMP 

000769 

03B3 

F380 

0BA3 



LNJ 

$67 *<ERROR 


000770 

03b5 

C380 

0A8D 



LNJ 

$B4,<PRTL5P 

ERROR; INCORkECT LINE SPEED 

000771 

0367 

FFOO 

1114 



5TR 

$R7 » <ERF 


000772 

0369 

4C0A 




LDV 

$R4 »; 10 


000773 

036A 

CFOO 

1100 



5TR 

$R4 * <CS6 


000774 

Q3BC 

8AD2 



TYXL 

INC 

s$K2 


000775 

0360 

C800 

129A 



LDR 

$R4 » <LCT 35 

SET LCI 10 NEXT SPEED 

000776 

036F 

CA70 

0100 



ADD 

$R4»sX»100* 

CHANGE TU NEXT SPEED 

000777 

03C1 

2 DOF 




CMV 

$R2*=15 

SEE IF ALL 5P&E0 TESTED 

000776 

03C2 

0800 

0324 



6AL 

<NX5PD 

BRANCH TO TEST NEXT SPEED 

000779 





ft 




000780 

03C4 

3E02 



TSNL 

ADV 

$R3»=2 

TEST NEX! LINt 

000781 

03C5 

8F80 

1155 



RSTR 

<5AV3 »s2 * 0810• 

RESTORt KEGS. 


03C7 

0810 







000782 

03C8 

OF 80 

03 IE 



6 

< JP T 3 


000783 





ft 




000784 

03CA 

8980 

11 IF 


SYNSR 

CMZ 

<PSFG 


000785 

03CC 

0986 




BNE 

>SYNSP1 


000786 

03CU 

8980 

112A 



CMZ 

<SHURT 


000787 

03CF 

0983 




6NE 

>SYNSP1 


000786 

0300 

C380 

0A80 



LNJ 

$64,<PRTLSP 

PRINT SYNCHRONOUS LINE SPEED 

000789 

0302 

4C08 



SYNSP1 

LDV 

$R4*s8 


000790 

0303 

CFOO 

hod 



5TR 

$R4 » <CS6 


000791 

0305 

OFEF 




6 

>TSNL 


000792 





ft 




000793 





ft 




000794 





ft 

RTC 

INTERRUPT ROUTINE 

000795 





ft 




000796 

0306 

0005 



N03PD 

RTCF 


TURN OFF RTC 

000797 

0307 

8700 

HOD 



CL 

<C56 


000798 

0309 

0680 

03A6 



LAB 

$65 »<JPT4 

SET RUPT POINTER TO RETURN TO LEVEL 4 

000799 

0306 

DF80 

1281 


, 

STB 

$65 *<ISA4P 


000600 

0300 

8E70 

8004 



LEV 

=Z»6004* 


000601 

030F 

0FF7 




B 

>N05PD 


000602 





ft 




000603 





ft 




000604 





ft ♦ ♦ 

♦ ♦ ♦ 

♦ ♦♦♦♦♦ + + ♦ 

♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ft- 

000605 





ft 

SYNC* R1C INTERRUPT 

ROUTINE 

000606 





ft 




000807 

03E0 

0005 



IRRG 

RTCF 


TURN OFF RTC 

000806 

03E1 

C380 

0614 



LNJ 

$64•<INRG 

INPUT RANGE INTO $R5 

000609 

03E3 

8A01 




INC 

s$Rl 

FORM TUTAL RESIDUAL RANGE 

000610 

03E4 

19Q 4 





$K 1 » > IRRG2. 

FROM 01 HER CCjJ'S 

000611 

03E5 

DA70 

03C0 


1RRG1 

ADD 

$R5»=X«3C0» 


000812 

03E7 

17FE 




61NC 

$K1♦>1KRG1 


000613 

03E6 

C800 

i IDE 


IRRG2 

LDR 

$R4 »<FIVSEC 

PUT ELAPSED TiME IN $R4 

000814 

03EA 

0680 

03CA 



LA b 

$65 » <5YNSP 

SET RUPT POINTER FOR RETURN TO LEVEL 4 

000615 

03tC 

DF80 

1281 



STB 

$B5 »<ISA4P 


000616 

03EE 

8E70 

6004 



LEV 

=Z»6004» 


000617 

03F0 

OFFO 




6 

> IRRG 


000616 





ft 




000619 





ft - - 

- - - 



000820 





ft 




000621 





ft 

CRC 

AND PARITY TE5? 


000822 





ft 




000623 

03F1 

C870 

4420 


CRPTB 

LDR 

$R4,=A»D • 


000624 

03F3 

CFOO 

1364 



STR 

$R4 *<EKMG+1 


000825 

03F5 

6380 

0986 



LNJ 

$63,<CLFG 

CLEAR ALL TEST FLAGS 

000626 

03F7 

8 ABO 

110F 



INC 

<CRCFG 

SET FLAG FOR uTALOp SUB-KOUIINE 

000627 

03F9 

8700 

111A 



CL 

<MA5K 

SET MASK FOR ZV$C 

000628 

03F6 

C870 

C802 



LDR 

$R4,sZ'C802' 

SET LCI CONFIG. FOR 

000829 

03FO 

CFOO 

1290 



STK 

$R4 * <LC2CFR 

RECV.* ODD PAkITY. CRC16 

000630 

03FF 

4E20 




adv 

$R4 * •20 * 


000831 

0400 

CFOO 

1291 



STR 

$R4 »<LC2CFX 

XMIT LCT CONFIG. ODD PARITY 

000832 

0402 

E680 

1197 



LAB 

$66 »<CPFLG 

LOAD AODKESS OF LCT FLAG TABLE 

000833 

0404 

C876 




LDR 

$R4 «-f $66 

LOAD $K4 WITH LCT FLAG 

000834 

0405 

CFOO 

1294 


CRPTB1 

STR 

$R4 »<LCT2FG 

STORE INTO LC[ TABLE 

000635 

0407 

F870 

0E18 



LDR 

$K7*sX»E18* 

STORE INITIAL SPEED FOR A5YC. LINES 

000836 

0409 

FFOO 

1292 



STR 

$R7 *<LCT25 


000637 

0406 

7C06 




LDV 

$RH*6 

NUMBER OF 30 MS TIME DELAY FOR TRANSFER 

000836 





ft 




000639 





ft 


TEST A5YCHR0N0US 

LINES WITH BAUD RATfc 

000640 





ft 


9600 BAUD * WITH 2 STOP BIT* 

000641 

040C 

9680 

1176 


T 8 

LAB 

$61»<ASYNl 

LOAD LINE TYPE 

000642 

040E 

6380 

0881 


T8A 

LNJ 

$63 » <DTALOP 

GO TO LOUP SUB-ROUTINE 

000843 

0410 

0F85 




6 

>T 9 


000644 

04 11 

1209 




DC 

<WCP2 

ADDRESS 1 ABLE FOR BLOCK WRITE 

000845 

0412 

128E 




DC 

<LC I 2 

LCT TABLt 

000846 

0413 

003F 




DC 

(DFLT-DOUT) 

RANGE IN WORDS 

000847 

0414 

119E 




DC 

<DOUT 


000848 





* 




000849 





ft 


TEST CURRENT LOOP 

ASYNCHRONOUS 

000650 





ft 




000651 

0415 

C871 



T9 

LDR 

$R4 * ft$61 

LOAD ID 1YPE INTO $R4 

000652 

0416 

C900 

1177 



CMR 

$K4»<ASYNC 

CHECK 10 SEE IF ALREADY DONE 

000653 

0418 

0902 




bE 

>I9A 


000654 

0419 

QFF5 




6 

>T8A 


000655 


041A 



T9A 

EGU 

$ 


000656 

041A 

F870 

3218 



LDR 

$R7,=X*3218» 

STOKE SYNC. CHAR. INTO LCT 1 ABLE 

000657 

04 1C 

FFOO 

1292 



STR 

$R 7 »<LCT2S 


000656 

0411 

7C28 




LDV 

$R7 % =40 

NUMBER OF 30 MS TIME DELAYS 

000859 





ft 




000860 





ft 


TtST SYNCHRONOUS 

LINES (32 AS SYNC. CHAR.) 

000861 





ft 




000862 

04 IF 

9680 

1178 



LAB 

$BH<SYNC 

LOAD LINE TYPt 

000863 

0421 

6380 

0881 


QA2 

LNJ 

$63 »<DTALOP 

GO TO LOUP SUo-KOUTINE 




TITLE DCMC2 * 

•REV A• 

000864 

0423 

0F85 


000665 

0424 

12D9 


000666 

0425 

128E 


000867 

0426 

002F 


000868 

0427 

11AE 


000869 




000870 




000671 




000872 

0428 

C871 


000873 

0429 

C900 

1179 

000874 

042b 

09Q2 


000875 

042C 

0FF5 


000676 




000877 




000878 




000879 

0420 

9B80 

117A 

000880 

042F 

B380 

0881 

000681 

0431 

OF85 


000882 

0432 

1209 


000683 

0433 

128E 


000884 

0434 

002F 


000685 

0435 

UAE 


000686 




000887 

0436 

C876 


000686 

0437 

4980 

0405 

000889 

0439 

C800 

1290 

000690 

043B 

C970 

0802 

000691 

0430 

0900 


000892 

043E 

C870 

0602 

000693 

0440 

CFOO 

1290 

000894 

0442 

4E20 


000895 

0443 

CFOO 

1291 

000696 

0445 

EB60 

1198 

000897 

0447 

C876 


000898 

0448 

0F80 

0405 

000899 

044A 

8700 

HOF 

000900 

044C 

8382 


000901 




000902 




000903 




000904 




000905 




000906 




000907 

0440 

8F00 

1145 


044F 

91E0 


000908 

0450 

AC80 

08CC 

000909 

0452 

C842 

0002 

000910 

0454 

4Q4E 


000911 

0455 

4E05 


000912 

0456 

CFOO 

HOC 

000913 




000914 




000915 




000916 

0458 

4006 


000917 

0459 

090A 


000918 

045A 

4007 


000919 

045b 

0984 


000920 

045C 

C870 

7F7F 

000921 

045E 

0F83 


GL0Q92Z. 

04 5 F 

CJ87.Q. 

3F3F 

000923 

0461 

CFOO 

UlA 

000924 




000925 

0463 

C842 

0006 

000926 

0465 

4017 


000927 

0466 

OAOO 

0499 

000928 




000929 




000930 

0468 

BC80 

08EF 

000931 

046A 

9B80 

1000 

000932 

046C 

F800 

1120 

000933 

0461 

7001 


000934 

046F 

C842 

0002 

000935 

0471 

C570 

1000 

000936 

0473 

4Q4C 


000937 

0474 

8B54 



0475 

0001 


000938 

0476 

CFOO 

111E 

000939 




000940 

0476 

C380 

09BE 

000941 




000942 





047A 

FBCO 

0003 


047C 

0380 

0000 


047E 

0F80 



047F 

1000 



0480 

1C00 



0481 

UlA 



0482 

1120 



0483 

1131 


000943 

0484 

8980 

1131 

000944 

0486 

0900 


000945 

0487 

0800 

1133 

000946 

0489 

E800 

1132 

000947 

048b 

F800 

1131 

000948 

048D 

F380 

0BA3 

000949 





048F 

FBFO 

0001 


0491 

0380 

0000 

000950 

0493 

DB80 

0959 

000951 

0495 

89C2 

0006 

000952 

0497 

0A80 

04D1 

000953 

0499 

E380 

099C 

000954 

049b 

5E03 


000955 

049C 

OFOO 

04A3 

000956 

049E 

5E20 


000957 

049F 

OFOO 

04AC 

000958 




000959 

04A1 

E380 

0B5E 

000960 

04A3 

0000 


000961 

04A4 

0002 


000962 




000963 

04A5 

C800 

112E 

000964 

04A7 

4018 



CLA TEST (SAP) 


PAGE 10 


b 

>T10 


DC 

<WCP2 

ADDRESS 1 ABLE FOR BLOCK WRIIE 

DC 

<LC1 2 

LCT TABLE 

DC 

(DFLT-DQUT1) 

range IN WORDj 

DC 

<DQUT 1 



TEST dI•SYNCHRONOUS 

LINES (32 AS SYNC. CHAR.) 

LDR 

$R4♦ + $B1 

LOAD ID 1YPE INTO $R4 

CMR 

$R4,<B1SYNC 

CHECK 10 SEE IF ALREADY DONE 

BE 

>T 12 


b 

>UA2 



* TEST MIL I8b SYNCHRONOUS (32 AS SYNC, CHAR.) 


T12 

LAB 

SB1t<5YN188 

LOAD LINE TYPE 


LNJ 

SB3♦<DT ALOP 

GO TO LOUP SUo-ROUTlNE 


b 

>136 



DC 

<WCP2 

ADDRESS TABLE FOR BLOCK WRITE 


DC 

<LU2 

LCT TABLE 


DC 

(DFLT-DOUTl) 

RANGE IN WORDS 


DC 

<D0UT1 


T38 

LDR 

$R4♦♦$B6 

CHANGE LCT FLAG 


BNEZ 

SR4 *<CRPTB1 

SEE IF ALL FLAGS CHECKED 


LDR 

SR4,<LC2CFR 

SEE IP ALL COMBINATIONS HAVE BEEN RUN 


CMR 

$R4*5Z«D802» 



BE 

>CRPTB2 

BRANCH IP ALL TESTED 


LDR 

$R4 *sZ•D802 * 

CHANGE LCT COmFIG. TO EVEN PARITY 


STR 

$R4,<LC2CFR 

STORE RECV COnFIG. 


ADV 

SR4 « »X * 20• 

CHANGE ADDRESS FOR XMlT LCl 


STR 

$R4,<LC2CFX 

STORE XMlT CONFIG, 


LAB 

$B6,<CPPLGU 

SET TO TEST WITH PARITY 


LDR 

$R4,+$B6 

LOAD $R4 WITH LCT FLAG 


B 

<CRP Tbi 

BRANCH TO TEST ALL LINES AGAIN WITH EVEN PARI 

CRPTB2 

CL 

<CRCFG 

CLEAR CRC AND PARITY TEST FLAG 

* 

JMP 

$B2 

jump out of test 


*****«*********'*****«****************** 

* 


* CRC AND PARITY CHECK ROUTINE 

* 


* 


CRPRT 

SAVE 

<SAV2**Z*91E0» 

SAVE KEGS. S»B1 *B2 »$R7 


LDB 

JB2 »<TG2 

LOAD ADDRESS UF LCT TABLt INTO »B2 


LDR 

SR4.SB2,2 

LOAD SK4 WITH CONFIG, 


S0R 

SR4.14 

SHIFT 10 CHAR. SUE 


ADV 

SR4 , *5 



STR 

$K4 *<CS 

STORE CHARACTER SIZE FROM CONFIG. 

* 

SET 

ZV$C MASK ACCORDING 

TO CHAR. SUE 


CMV 

$R4,=8 



BE 

>CRPR2 



CMV 

SK4»s 7 



BNE 

>CHRP1 



LDR 

SK4,5Z«7P7F» 

SET MASK FOR 7 BIT CHAR. 


B 

>CKPK1 


GttRPH 

LDR 

SK4»=2 * 3F3F' 

SET MASK FOR » BIT CHAR. 

CHPR1. 

STR 

S>R4 » <MASK 


CRPR2 

LDR 

$R4 ♦ $B2,6 

CHECK LCl FLAG TO SEE IF CRC ANO/QR PARITY 


CMV 

$R4, sX * 17• 


* 

BAG 

<CKCRC 

BRANCH TO CHECK CRC ONLY 

* 

LDB 

$B3,<TG3 

LOAO ADDRESS uF DATA BUFFER 


LAB 

$B1|<D1N1 i 

LOAD ADDRESS uF SHOULD Bt WITH PARITY 


LDR 

$R7»<KANGE 

LOAD RANGE OF TRANSFER IN WORDS 


SOL 

$R7 11 

CHANGE RANGE TO BYTES 


LDR 

$K4*402,2 

CHECK CONFIGURATION TO StE IF ODD 


AND 

$R4»sX'1000* 

OK EVEN PARITY 


SOR 

SK4»12 

SHIFT 10 LSB 


LBC 

5JR4,=X» 1 • 

COMPLtMENT THt BIT TO WORK IN SUB-ROUTINE 


STR 

4K4 »<PTTY 

STORE IN PARlfY TYPE LOCATION 


LNJ 

$B4,<CPAR 

GO TO calculate parity 


CALL 

ZV4C.DIN1♦DIN*MASK * 

RANGE.ERAR 


X 



CM2 

<ERAR 

SEE IF ANY ERRORS 


BE 

>CKPTY2 



LDR 

SR5 *<ERAR + 2 

LOAD- US* INTO $R5 


LDR 

SK6 .<ERAR +1 

LOAD 'SHOULD oE* INTO $R*> 


LDR 

$R7 *<EKAR 

LOAD $K7 WITH WORD COUNT 


LNJ 

$B7 »<ERROR 

ERROR; INCORRECT PARITY 


CALL 

ZV$ CO 

CONTINUE CHECKING ENTIRE BUFFER 

CKPTY2 

LAB 

405 »<JP5 

CHANGE $B5 TO POINT TO AFltK COMPARE 


CM2 

SB2.6 

CHECK FLAG IF PARITY ON 10 


BALE 

<EDCK 

BRANCH IF PARITY NOT ON 

CKCRC 

LNJ 

$06 »<BASE 

LOAD *K5 WITH LCT BASE ADDRESS 


ADV 

$K5,s3 

FOR BLOCK READ OF CRC RESIDUE 


STR 

$R5 »<KCRRL 

STORE RECV, RESIDUE ADDRESS 


ADV 

SR5.S32 



STR 

$R5 *<RCRXL 

STORE XMlT RESIDUE ADDRESS 


LNJ 

SB6 »<RDLCT 

READ RECV, CRC RESIDUE 

RCRRL 

DC 

0 

RAM ADDRESS 


DC 

2 

RANGE 


LDR 

$R4,<LCTV 



SCL 

SK4.8 

ROTATE THE ORDER 




TITLE DCMC2 % 

'REV A' 

CLA TEST (SAF) 
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000965 

04A8 

CFOO 

1121 


STR 

$R4*<KCRC 



000966 




* 





000967 

04AA 

E380 

0656 


LNJ 

$B6 *<RDLCT 

read xmit crc residue 


000968 

04AC 

0000 


RCRXL 

DC 

0 

RAM ADDRESS 


000969 

04AD 

0002 



DC 

2 

RANGE 


000970 




ft 





000971 

04AE 

C800 

112E 


LDR 

$R4»<LCTV 



000972 

0460 

4018 



SCL 

$R4»8 



000973 

04B1 

CFOO 

112D 


STR 

$R4 «<XCRC 



000974 




ft 





000975 

0463 

E680 

1185 


LAB 

$B6♦<CRC16 

LOAD CRC TYPE 


000976 

04B5 

E800 

HOC 


LDR 

$R6»<CS 

LOAD CHAR. SUE 


000977 

04B7 

BC80 

08EF 


LDB 

$B3 *<TG3 

LOAD ADDRESS OF OUTPUT BUFFER 


000978 

0469 

C842 

0006 


LDR 

$R4»$B2.6 

CHECK FLAG TO SEE IF OUTPUT BUFFER 

CORRECT 

000979 

04BB 

4D17 



CMV 

$R4*sX'17» 



000980 

04BC 

0983 



BNE 

>CKPCR 



000981 

0460 

BB80 

1D00 


LAB 

$B3 * <DIN1 



000982 

046F 

F800 

1120 

CKPCR 

LDR 

$R7»ftRANGE 

LOAD RANGE OF TRANSFER IN WORDS 


000983 




ft 





000984 

04C1 

C380 

09A0 


LNJ 

$B4,<CKC 

CALCULATE CRC FOR THE TRANSFERS 


000985 




* 





000986 

04C3 

E800 

HOE 


LDR 

$R6*<CRCAC 

LOAD $R6 WITH SHOULD BE 


000987 

04C5 

0800 

1121 


LDR 

$R5,<RCRC 

LOAD CRC RECV. RESIDUE 


000988 

04C7 

E955 



CMR 

$R6,s$R5 

COMPARE RECEIVE CRC 


000989 

04C8 

0903 



BE 

>RCRCG 



000990 

04C9 

F380 

0BA3 


LNJ 

$B7 *<ERRQK 

ERROR? RECEIVE CRC RESIDUE WRONG 


000991 

04C6 

0800 

1120 

RCRCG 

LDR 

$K5 ♦<XCRC 

LOAD XMIT CRC RESIDUE 


000992 

04CD 

E955 



CMR 

$K6»=$R5 

COMPARE XMIT CRC 


000993 

04CE 

0903 



BE 

>EDCK 



000994 

04CF 

F380 

0BA3 


LNJ 

SB7,<ERR0R 

ERROR; XMIT RESIDUE WRONG 


000995 

04D1 

8F80 

1145 

EDCK 

RSTR 

<SAV2»s2'91E0* 

RESTORE REGS. 



0403 

91E0 







000996 

0404 

8385 



JMP 

$65 

GO BACK TO DA|LOP SUB-ROUTINE 


000997 




# 





000996 




* 





000999 




ft - - ■ 

- - - 



- - - - 

001000 




* 





OOiOOl 




* 


CHARACTER SIZE TEST 



001002 




ft 





001003 

0405 

C870 

4520 

CHSZTD 

LDR 

$R4 « sA'E ' 



001004 

0407 

CFOO 

1364 


STR 

$R4*<ERMGU 



001005 

0409 

B380 

0986 


LNJ 

$63 *<CLFG 

CLEAR ALL TEST FLAGS 


001006 

040b 

8A80 

1109 


INC 

<CHSZFG 

SET CHARACTER SIZE TEST FLAG 


001007 

0400 

4C02 



LDV 

$R4,=2 

LOAD CONFIGURATION FOR 1 STOP BIT 

ODD 

001008 

04DE 

CFOO 

12A0 


STR 

$R4,<LC4CFR 

PARITY* 5 BIT CHAR. R£CV. 


001009 

04E0 

4E20 



ADV 

$R4,sX'20» 



001010 

04E1 

CFOO 

12A1 


STR 

$R4 » <LC4CFX 

STORE XMIT COnF• 


001011 

04E3 

C870 

1F1F 


LDR 

$R4,=Z'1F1F» 

SET MASK FOR FIVE BIT CHAR. 


001012 

04E5 

CFOO 

111A 


STR 

$R4 * <MASK 



001013 

04E7 

89C0 

0C30 


CM2 

' HISPD 

IF SYNC 9600 oAUD. NO 5 BIT MODt 


001014 

04E9 

0980 

051A 


BNE 

<T36 



001015 

04E6 

7C0A 


CHSZT1 

LDV 

$R7.=10 

NUMBER OF 30 MS TIME DELAY FOR TRANSFER 

001016 

04EC 

C870 

OE18 


LDR 

$R4,=X'E18* 

SET LINE SPEEU FOR ASYNC. LINE 


001017 

04EE 

CFOO 

12A2 


STR 

$R4 »<LCT4S 



001016 




ft 





001019 




* 


TEST ASYNCHRONOUS LINES WITH BAUD RATE 


001020 




* 


9600 BAUD* WITH 1 

STOP BIT 


001021 




* 





001022 

04F0 

9680 

1176 

T14 

LAB 

$B1»<ASYN1 

LOAD LINE TYPE 


001023 

04F2 

6.3 8 Q 

0881 

T14 A 

LN.J 

$63 t<UIALQP 

GO TO LOOP SUd-ROUTINE 


001024 

04F4 

0F85 



B 

>T 15 



001025 

04F5 

120E 



DC 

<WCP3 

ADDRESS 1 ABLE FOR BLOCK WRIlt 


001026 

04F6 

129E 



DC 

<LC f 4 

LCT TABLE 


001027 

04 F 7 

003F 



DC 

(DFLT-DQUT) 

RANGE IN WORDS 


001028 

04F6 

119E 



DC 

<DOUT 



001029 




ft 





001030 




ft 


TEST CURRENT LOOP ASYNCHRONOUS 


001031 




* 





001032 

04F9 

C871 


T15 

LDR 

$R4»*$B1 

LOAD ID TYPE INTO $R4 


001033 

04FA 

C900 

1177 


CMR 

$R4 »<ASYNC 

CHECK 10 SEE IF ALREADY DONE 


001034 

04FC 

0902 



BE 

>1 15 A 



001035 

04F0 

0FF5 



6 

>T 14A 



001036 


04 FE 


T15A 

EQU 

$ 



001037 

04FE 

F870 

E618 


LDR 

$R7♦sZ'E618 ' 

STORE SYNC. ChAR. INTO LCT lABLE 


001038 

0500 

FFOO 

12A2 


STR 

$R 7 *<LCT4S 



001039 

0502 

7C28 



LDV 

$R7 * s40 

NUMBER OF 30 MS TIME DELAYS 


001040 




* 





001041 




ft 


TEST SYNCHRONOUS LINES 

(E6 AS SYNC. CHAR.) 


001042 




ft 





001043 

0503 

9B80 

1178 


LAB 

$B1»<SYNC 

LOAD L1NL TYPt 


001044 

0505 

6380 

0881 

UA3 

LNJ 

$63»<DT ALOP 

GO TO LOUP SUB-ROUTINE 


001045 

0507 

0F85 



B 

>T 16 



001046 

0508 

120E 



DC 

<WCP3 

ADDRESS [ABLE FOR BLOCK WRITE 


001047 

0509 

129E 



DC 

<LC 14 

LCT TABLt 


001046 

050A 

002F 



DC 

(DFlT-DOUU) 

RANGE IN WORDS 


001049 

0506 

UAE 



DC 

<DOUT1 



001050 




ft 





001051 




ft 


TEST BI-SYNCHRONOUS LINES (£6 AS SYNC. CHAR.) 


001052 




ft 





001053 

050C 

C871 


T16 

LDR 

$R4 * + $B1 

LOAD ID IYPE INTO $R4 


001054 

0500 

C900 

1179 


CMR 

$R4 »<BI SYNC 

CHECK 10 SEE IF ALREADY DONE 


001055 

050F 

0902 



bt 

>T l 7 



001056 

0510 

0FF5 



B 

>0A3 



001057 




ft 





001058 




ft 


TEST MIL 188 SYNCHRONOUS (E6 AS SYNC. CHAR.) 


001059 




ft 





001060 

0511 

9B80 

117A 

T17 

LAB 

$B1»<SYN18b 

LOAD LINE TYPc 


001061 

0513 

6380 

0881 


LNJ 

$B3»<DTAL0P 

GO TO LOUP SUo-ROUjINE 


001062 

0515 

0F85 



B 

>T36 



001063 

0516 

120E 



DC 

< WCP3 

ADDRESS lABLE FOR BLOCK WRITE 


001064 

0517 

129E 



DC 

<LCT 4 

LCT TABLE 


001065 

0518 

002F 



DC 

(DFLT-D0UT1) 

RANGE IN WORDb 


001066 

0519 

UAE 



DC 

<DOUT1 



001067 




ft 





001068 




ft 





001069 

051A 

8A80 

HOF 

T36 

INC 

<CRCFG 



001070 

Q51C 

C800 

12A0 


LDR 

$R4 » <LC4CFR 

CHANGE CONFIGURATION TO NEXT CHAR. 

SIZE 

001071 

05 IE 

CA70 

4000 


ADD 

$R4tsX'4000' 



001072 

0520 

0606 



BCT 

>chszde 

IF CARRY ALL uHAR. SIZES HAVE BEEN 

TESTED 

001073 

0521 

CFOO 

12A0 


STR 

$R4*<LC4CFR 

STORE RECV CQnFIG. 


001074 

0523 

4E20 



ADV 

$R4,5X»20* 



001075 

0524 

CFOO 

12A1 


STR 

$R4 * <LC4CFX 

STORE XMIT COnFIG. 


001076 

0526 

0F80 

04EB 


B 

<CHSZ T1 

DO NEXT CHAR. 
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TITLE DCMC2* «REV A* CLA TEST (SAP) 


001077 





* 





00107b 

0526 

8700 

110F 


CHSZDE 

CL 

<CRCFG 


CLEAR CRC AND PARITY FLAG 

001079 

052 A 

8700 

1109 



CL 

<CHSZFG 


CLEAR CHARACTER SIZE TEST FLAG 

001080 

0S2C 

8382 




JMP 

$62 


JUMP OUT OF TfcST 

001081 





* 





001082 





* - - • 

- - - 


- 


001083 





* 





001084 





ft 


STOP BIT TEST 



001085 





ft 





001086 

0520 

C870 

4620 


STBITE 

LDR 

$K4 » sA * F ' 



001087 

052F 

CF00 

1364 



STK 

$K4,<ERMG+1 



001088 

0531 

6380 

0988 



LNJ 

$B3*<CLFG 


CLEAR ALL TEST FLAGS 

001089 

0533 

C680 

0546 



LAB 

$B4 » <SB1T1 


SET UP INTERRUPT VECTORS AND 

001090 

0535 

CF 80 

1281 



STB 

$B4 * <ISA4P 


pointers to change running level to 4 

001091 

0537 

C680 

127E 



LAB 

$B4♦<1SA4*$AF 



001092 

0539 

CF 80 

0004 

X 


STB 

$B4,<ZHlSA2+4 



001093 





ft 





001094 

053b 

C800 

1119 



LDK 

$R4♦<HR tZ 


CALCULATE THE LOW AND THE 

001095 

0530 

4F06 




MLV 

$R4,=6 


HIGH RANGE OF ACCEPTABLE CLUCK TICKS 

001096 

053E 

4EF7 




ADV 

$K4,s-9 



001097 

053P 

CFOO 

1 IDF 



STR 

$R4,<5ECL 



001098 

0541 

4E12 




ADV 

$R4,=18 



001099 

0542 

CFOO 

11E0 



STR 

$R4♦<SECH 



001100 

0544 

8E70 

8004 



LEV 

sZ»6004» 


CHANGE RUNNING LEVEL TO 4 

001101 

0546 

4C01 



S8171 

LDV 

$K4,sl 


SET KTC LEVEL TO 1 

001102 

0547 

CFOO 

0000 

X 


STH 

$R4,<ZHRTCL 



001103 





ft 





001104 

0549 

C680 

05AC 



LAB 

$B4,<NB1TT 


SET RUPT POINTER FoR RTC IN 1 ERKUPT 

001105 

0545 

CF80 

127B 



STB 

$B4*<1SA1P 



001106 





ft 





001107 

0540 

CB80 

1278 



LAb 

$B4»<ISA1+$AF 


SET RUPT VECTOR FOR LEVEL 1 RUPT 

001106 

054F 

CF80 

0001 

X 


STB 

$B4»<ZH1SAZ*1 



001109 





ft 


j 



001110 

0551 

8700 

129C 



CL 

<LC3SYF 


clear sync, flag for async. line 

001111 

0553 

8 ABO 

1129 



INC 

<SBTFG 


SET STOP BIT TIME TEST FLAG 

001112 

0555 

C870 

CO 02 



LDR 

$R4,cZ»C002» 


LOAD AND STORt INITIAL LINE CONP, 

001113 

0557 

CFOO 

1298 



STK 

$K4,<LC3CFR 


FOR RECV, 

001114 

0559 

4E20 




ADV 

$R4*sX'20« 



001115 

055A 

CFOO 

1299 



STH 

$R4 *<LC3CFX 


FOR XM1T 

001116 

055C 

C870 

0318 



LDK 

$R4,sX'318» 


LOAD $K4 WITH SPEED FOR ASYNC, LINE 

001117 

055E 

9880 

1175 



LAB 

SBi*<ASYN 


load line TYPE 

001118 

0560 

EB80 

1231 



LAB 

$B6 »<SBITbL 


LOAD ADDRESS uF CHAR. NUMBER TABLE 

001119 

0562 

B380 

0318 



LNJ 

$B3*<SPDTLP 


GO TO SPEED TIME LOOP 

001120 





ft 





001121 

0564 

C870 

0218 



LDR 

$R4»cX»218» 


LOAD $K4 WITH SPEED SELECT FOR NEW ASYC, 

001122 

0566 

9B80 

1176 



LAB 

SBI*<ASYN1 


LOAD ADDRESS uF LINE TYPE 

001123 

0568 

8380 

0318 



LNJ 

$B3 »<SPDTLP 


GO TO SPEED TIME LOOP 

001124 





ft 





001125 

056A 

C870 

0218 



LDK 

$K4.=X'218» 



001126 

056C 

9880 

1177 



LAB 

$B1»<ASYNC 



001127 

056E 

B380 

0318 



LNJ 

$B3 »<SPDTLP 



001126 





ft 





001129 






CALL 

ZVSKD 


KE-1NI11ALIZE INTERRUPT POINTERS AND VECTORS 


0570 

FBFO 

0001 








0572 

D380 

0000 

X 






001130 

0574 

8700 

1129 



CL 

< SB IF G 


CLEAR STOP BIT TEST FLAG 

001131 

0576 

8382 




JMP 

$62 


JUMP OUT OF TtST 

001132 





* 





001133 





ft ft ft 

ft ft ft 

ftftftftftftftftftft 

* 

********************** 

.001134 





ft 





001135 





ft 


STOP bit TIME CHECKED 

HERE 

001136 





ft 





001137 

0577 

C940 

0C68 


SBTE 

CMR 

$R4 *SECH 


SEE IF CLOCK TICK WITHIN 

001138 

0579 

0803 




BAL 

>SB|El 


ACCEPTED RANGt 

001139 

057A 

F380 

08A3 



LNJ 

$B7 »<ERROR 


ERROR; STOP BITS ARE TOO LUNG 

001140 

057C 

C900 

1 IDF 


SBTE1 

CMR 

$K4 *<SECL 



001141 

057E 

0A03 




BAG 

>SBTE2 



001142 

057F 

F380 

0BA3 



LNJ 

$B7»<ERR0R 


ERROR; STOP BITS are TOU SHORT 

001143 

0581 

D8Q0 

1298 


S8TE2 

LDR 

$K5»<LC3CFR 


LOAD LCT CONFIG, 

001144 

0583 

8955 




L6T 

=$K5»sZ'0800» 


SEE IF BIT SET AND SET IT 


0584 

0800 








001145 

0585 

0509 




BBT 

>SBTE3 


IF TRUE TRY SLOW SpEED FOR 1.5 STOP BIT 

001146 

0586 

DFOO 

1298 



STR 

$K5 »<LC3CFR 


STORE LCT CONFIG, WITH 2 STOP BITS 

001147 

0588 

5E20 




ADV 

$R5»sX»20» 



001148 

0589 

DFOO 

1299 



STR 

SR5*<LC3CFX 


STORE CONFIG. XMIT 

001149 

058b 

8AD2 




INC 

= $R2 


INCREMENT INDEX 

001150 

058C 

0F80 

0326 



B 

<NXSPD1 



001151 





ft 





001152 

058E 

2D03 



5BTE3 

CMV 

$R2*a3 


SEE IF ALL STOP BIT S CHECKED 

001153 

058F 

0900 

05 A3 



BE 

<SBTE4 



001154 

0591 

4C02 




LDV 

$K4 »s2 


CHANGE CONFIG. FOR 5 BIT CHAR. 

001155 

0592 

CFOO 

1298 



STR 

$R4,<LC3CFK 


STORE RECV CONFIG, 

001156 

0594 

4E20 




ADV 

$K4*=X*20» 



001157 

0595 

CFOO 

1299 



STR 

$R4,<LC3CFX 


STORE XMIT CONFIG. 

001158 

0597 

8AD2 




INC 

= $R2 


INCREMENT INDcX 

001159 

0598 

C870 

0218 



LDR 

$R4,sX*218« 


LDR SR4 10 SET LINE SPEED TO 75 BAUD 

001160 

059A 

D801 




LDR 

$R5 «$B1 


IF NEW ASYC. RESET $R4 FUR 75 BAUD 

001161 

059b 

D900 

1175 



CMR 

$R5 * <ASYN 



001162 

0590 

0900 

0324 



BE 

<NXSPD 



001163 

059F 

C870 

0118 



LDR 

$R4*=X*118* 



001164 

05A1 

0F80 

0324 



B 

<NXSPD 



001165 





ft 





001166 

05A3 

C870 

C002 


SBTE4 

LDR 

$R4*=Z»C002* 


LOAD AND STORE BEGINNING CONF. 

001167 

05A5 

CFOO 

1298 



5TR 

$R4,<LC3CFR 


FOR RECV* 

001168 

05A7 

4E20 




ADV 

$K4,sX»20* 



001169 

05A8 

CFOO 

1299 



STR 

$R4t<LC3CFX 


FOR XMIT 

001170 

05 AA 

0F8O 

03C4 



B 

<TSNL 



001171 





ft 





001172 





ft 





001173 





ft ♦ ♦ 

♦ ♦ ♦ 

♦ ♦♦♦♦♦♦♦♦♦ 

+ 


001174 





* 





001175 





ft 


CLOOCK INTERRUPT 

ROUTINE 

001176 





ft 





001177 

05AC 

0005 



NBITT 

RTCF 



TURN OFF CLOCK 

001178 

05A0 

F380 

0BA3 



LNJ 

$B7 »<ERROR 


ERROR; STATUS NOT COMPLETE AFTER 5 SEC. 

001179 

05AF 

DB80 

0326 



LAB 

$B5.<NXSPD1 


RETRY THE LINE 

001180 

0561 

DF80 

1281 



STB 

$B5*<ISA4P 


WITH SAME CONFIG. 

001181 

0583 

8E70 

8004 



LEV 

= Z*8004» 



001182 

05B5 

0FF7 




B 

>NB1TT 



001183 





ft 





001184 





ft 





001185 





ft 





001186 





ft - - 

- - - 
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TITLE DCMC2* »KEV A* CLA TEST (SAT) 




001187 




ft 





001188 




ft 


PARITY ERROR TEST 



001189 




* 





001190 

05b6 

C870 

4720 

PARERF 

LOR 

$R4,=A'G • 



001191 

0568 

CFOO 

1364 


STR 

$R4 * <ERMG+1 



00119* 

050A 

B380 

0988 


LNJ 

$B3 * <CLFG 


CLEAR IEST FLAGS 

001193 

050C 

SABO 

1110 


INC 

<PAKFG 



001194 

05Bt 

C870 

C802 


LOR 

$R4,-2»C802* 


LOAD CONFIG. UN REc. FOR 000 PARITY 

00119b 

05C0 

CFOO 

1290 


STR 

$R4♦<LC2CFR 



001196 

05C2 

CA70 

1020 


AOO 

$R4*sX»1020* 


SET CONFIG. ON XMll jo EVEN PARITY 

001197 

05C4 

CFOO 

1291 


STR 

$R4♦<LC2CFX 



001198 

05C6 

C870 

FO17 


LOR 

$R4*s*'F017* 


SET CCP FLAG FOR PARITY ONLY 

001199 

05C8 

CFOO 

1294 


5TR 

$R4♦<LCT 2F 6 



001200 

05CA 

F870 

OE18 


LOR 

$R7 *sX * £18• 


STORE INITIAL SPEED FO* ASYC. LINES 

001201 

05CC 

FFOO 

1292 


STR 

$R7 *<LCT25 



001202 

05CE 

7C06 



LDV 

$R7*=6 


NUMBER OF 30 MS TIME DELAY FOR TRANSFER 

001203 




* 





001204 




ft 


TEST ASYCHRONOUS 

LINES WITH BAUD RATt 

001205 




ft 


9600 BAUD* WITH 2 

STOP BITS 

001206 

05CF 

9B80 

1176 , 

739 

LA6 

$61*<A5YN1 


LOAD LINE TYPE 

001207 

0501 

6380 

0881 

T39A 

LNJ 

$83 *<0T ALOP 


GO TO LOOP SUB-ROUTINE 

001208 

0503 

0F85 



6 

>T40 



001209 

0504 

1209 



OC 

< WCP2 


ADDRESS 1 ABLE FOR BLOCK WR1IE 

001210 

0505 

128E 



OC 

<LC | 2 


LCT TABLE 

001211 

0506 

003F 



OC 

(DFLT-OOUT) 


RANGE IN WORDS 

001212 

0507 

119E 



OC 

<00UT 



001213 




ft 





001214 




ft 


TEST CURRENT LOJP 

ASYNCHRONOUS 

001215 




ft 





001216 

0508 

C871 


T40 

LOR 

$R4»f$bl 


LOAD 10 IYPE INTO $R4 

001217 

0509 

C900 

1177 


CMR 

$K4*<ASYNC 


CHECK 10 SEE IF ALREADY UONE 

001218 

0506 

0902 



8E 

>T 40A 



001219 

05DC 

OFF 5 



6 

>T39A 



001220 


0500 


T40A 

ECU 

$ 



001221 

05DD 

F870 

3218 


LOR 

$R7 ♦sX*3218* 


STORE SYNC. CHAR. INTO LCT jable 

001222 

050F 

FFOO 

1292 


STR 

$R7 »<LCT 2S 



001223 

05E1 

7C28 



LOV 

$R7*=40 


NUMbER OF 30 MS TIME DELAYS 

001*24 




ft 





001225 




ft 


TEST SYNCHRONOUS 

LINES (32 AS SYNC. CHAR.) 

001226 




ft 





001227 

05E2 

9880 

1178 


LAb 

$81*<SYNC 


LOAD LINE TYPt 

001228 

05E4 

8380 

0881 

QA4 

LNJ 

$83 *<DTALOP 


GO TO LOUP SUo-ROUjINE 

001229 

05E6 

0F85 



6 

>T41 



001230 

05E7 

1209 



OC 

< WCP2 


ADDRESS TABLE FOR BLOCK WRIIE 

001231 

05E8 

128E 



OC 

<LC J 2 


LCT TABLE 

001232 

05E9 

002F 



OC 

(OFtT-OOUT1) 


RANGE IN WORDS 

001233 

05EA 

11AE 



OC 

<D0UT1 



001234 




ft 





001235 




ft 


TEST 6I-SYNCHRONOUS 

LINES (32 AS SYNg, CHaR.) 

001236 




ft 





001237 

05EB 

C871 


T41 

LOR 

$R4,+$BL 


LOAD ID TYPE INTO $R4 

001238 

05 EC 

C900 

1179 


CMR 

$K4 » <81 SYNC 


CHECK 10 SEE IF ALREADY DONE 

001239 

05EE 

0902 



b£ 

>T 42 



001240 

05EF 

0FF5 



6 

>0A4 



001241 




ft 





00124* 




ft 


TEST MIL 188 SYNCHRONOUS (32 AS SYNC* CHAR.) 

001243 




ft 





001244 

05F0 

9880 

117A 

T42 

LAb 

$B1»<SYN188 


LOAD LINE TYPt 

001245 

05F2 

6380 

0881 


LNJ 

$83 « <DT ALOP 


GO TO LOUP SUd-ROUJINE 

001246- 

05FA 

OF 8. 5 



8 

>145 



001247 

05F5 

1209 



OC 

<WCP* 


IORB ADDRESS FOR BLOCK WKlTt 

001248 

05F6 

128E 



OC 

<LCT 2 


LCT TABLt 

001249 

05F7 

002F 



OC 

(OFLT-OOUT1) 


RANsE IN WORDS 

001*50 

05F8 

11AE 



OC 

<OOUT1 



001251 




ft 





001252 

05F9 

8700 

1110 

T45 

CL 

<PAKFG 



001253 

05Fb 

8382 



JMP 

$82 



001254 




ft 





001255 




ft ft ft 

ft ft ft 

ftftftftftftftft* 

ft 

ft*ftftftftftftftftft#ftftftft*ftftftftft' 

001256 




ft 





001257 




* 


CHECK. PARITY ERROR 

BIT SET 

001258 




ft 





001259 

05FC 

C380 

OBOE 

PARI 

LNJ 

$B4,<INXT 


INPUT NtXT S|AT US 

001260 

05FE 

8205 



LB 

s$R5 *sX•1000• 




05FF 

1000 







001261 

0600 

0503 



68T 

>PAK2 



001262 

0601 

F380 

08A3 


LNJ 

$87 » <ERROR 


ERROR; SIATUS COMPLETE BIT NOT SET 

001263 

0603 

8205 


PAR2 

Lb 

=$R5»=X»40» 


SEE IF DATA CHECK ERROR &1T SET 


0604 

0040 







001264 

0605 

0503 



8bT 

>PAK3 



001265 

0606 

F380 

06A3 


LNJ 

$b7 ♦<error 


ERROR; DATA CHECK ERROR Bll NO 1 SET 

001266 

0608 

8A03 


PAR3 

INC 

s$R3 



001267 

0609 

C380 

080E 


LNJ 

$B4♦<INXT 


INPUT NEXT STATUS 

001268 

060b 

8205 



Lb 

=$R5*bX*1000» 




06 0C 

1000 







001269 

0600 

0503 



8b T 

>PAR4 



001270 

060E 

F380 

06A3 


LNJ 

$87*<ERR0R 


ERROR; STATUS NUT COMPLETE ON XMIT SIDE 

001271 

0610 

8205 


PAR4 

Lb 

s$R5*sX»40« 




0611 

0040 







001272 

0612 

0583 



6BF 

>PAK5 



001273 

0613 

F380 

06A3 


LNJ 

$87♦<£RRQR 


ERROR; DATA uHECK ERROR Bll SET ON XMIT 

001274 

0615 

0F80 

0985 

PAR5 

6 

< JP5A 



001275 




ft 





001276 




ft 





001277 




ft - - 

- — - 


- 


001278 




ft 





001279 




ft 


STOP I/O TEST 



001280 




ft 





001261 

0617 

C870 

4820 

STIQG 

LOR 

$R4♦sA * H * 



001282 

0619 

CFOO 

1364 


STR 

$R4»<£RMG*1 



001283 

061b 

6380 

098B 


LNJ 

$83* <CLFG 


CLEAR ALL TEST FLAGS 

001284 

0610 

A800 

1181 


LOR 

$R2*<BIT2 


LOAD $K2 WITH FUNCTION COMMAND 

001285 

061F 

8A60 

1126 


INC 

<ST PFG 



001286 

0621 

8700 

12AD 


CL 

<LC5SYF 


CLEAR SYNC. FLAG FOR ASYNC. LINtS 

001287 

0623 

C870 

0E18 


LOR 

$R4,sX»El8* 



001288 

0625 

CFOO 

12A9 


STR 

$R4 »<LCT5S 



001289 

0627 

7C02 



LOV 

$R7,s2 


NUMBER OF 30 MS DELAY 

001290 




ft 





001291 




ft 


TEST ASYNCHRONOUS 

LINES WITH BAUD RATE 

001292 




ft 


AT 9600 BAUD* 

WITH 2 STOP BITS 

001293 




ft 





001294 

0628 

9880 

1176 

T19 

LA6 

$81*<AsfNl 


LINE TYPE 

001295 

062A 

6380 

0881 

T19A 

LNJ 

$83 *<OTALOP 






TITLE DCMC2, 

'REV A' 

001296 

062C 

0F85 


001297 

062D 

12D4 


001298 

062E 

12A5 


001299 

062F 

01B6 


001300 

0630 

U9E 


001301 




00U02 




001303 




001304 

0631 

C871 


001305 

0632 

C900 

1177 

001306 

0634 

0902 


001307 

0635 

0FF5 


001308 


0636 


001309 

0636 

C870 

3A18 

001310 

0638 

CFOO 

12A9 

001311 

063A 

C870 

021C 

001312 

063C 

CFOO 

12AD 

001313 

063E 

7C05 


001314 




001315 




001316 




001317 

Q63F 

9B80 

1178 

001318 

0641 

6380 

0881 

001319 

0643 

0F85 


001320 

0644 

12D4 


001321 

0645 

12A5 


001322 

0646 

01B6 


001323 

0647 

11AE 


001324 




001325 




001326 




001327 

0648 

C871 


001328 

0649 

C900 

1179 

001329 

0646 

0902 


001330 

064C 

0FF5 


001331 




001332 




001333 




001334 

064D 

9B80 

117A 

001335 

064F 

B380 

0881 

001336 

0651 

0F85 


001337 

0652 

1204 


001338 

0653 

12A5 


001339 

0654 

01B6 


001340 

0655 

11 AE 


001341 




001342 




001343 

0656 

8700 

1126 

001344 

0658 

8382 


001345 




001346 




001347 




001348 




001349 




0(11350 




001351 

0659 

8AD3 


001352 

065A 

C380 

0607 

001353 




001354 

065C 

C380 

OBOE 

£0115.5 _ 

065E_ 

JiPS 



065F 

1000 


001356 

0660 

0503 


001357 

0661 

F380 

0BA3 

001358 

0663 

C380 

0B14 

001359 

0665 

5983 


001360 

0666 

F380 

0BA3 

001361 

0668 

3BOO 

0687 

001362 

066A 

88D3 


001363 

0666 

DFOO 

1126 

001364 

066D 

8980 

112C 

001365 

066F 

0914 


001366 

0670 

C380 

OBOE 

001367 

0672 

C380 

0614 

001368 

0674 

D970 

0220 

001369 

0676 

0A7C 


001370 

0677 

C380 

0B07 

001371 




001372 

0679 

C800 

1101 

001373 

0676 

C380 

0B7E 

001374 

067D 

8055 



067E 

0054 


001375 

067F 

0703 


001376 

0680 

F380 

0BA3 

001377 

0682 

OFDC 


001378 




001379 

0683 

7C03 


001380 

0684 

D380 

0B4C 

001381 

0686 

0FD4 


001382 




001383 




001384 




001385 

0687 

C800 

10FC 

001386 

0689 

C380 

0B7E 

001387 

0686 

8000 

1184 


068D 

0054 


001388 

068E 

0703 


001389 




001390 

068F 

F380 

0BA3 

001391 




001392 

0691 

8AD3 


001393 

0692 

C800 

10FC 

001394 

0694 

C380 

0B7E 

001395 

0696 

8000 

1184 


0698 

0054 


001396 

0699 

0703 


001397 




001398 

069A 

F380 

0BA3 

001399 




001400 

069C 

DFOO 

1127 

001401 

069E 

E380 

099C 

001402 

06A0 

5E10 


001403 

06A1 

DFOO 

06A8 

001404 

06A3 

5E20 



CLA TEST (SAP) 
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QA5 


ST IQ 


ST LOS 


LNJ 

TSTF4 BEVN 
DEG 
STR 
CM Z 
BE 
LNJ 

STIQ3 LNJ 
CMR 
BAG 
LNJ 

* 

LDR 

LNJ 

10 

BIOT 
LNJ 
B 


B 

>T20 


DC 

<WCP1 


DC 

<LC1 5 


DC 

438 

RANGE IN WGRDj 

DC 

<DOUT 

TRANSMIT BUFFER ADDRESS 


TE5T CURRENT LOOP 

ASYNCHRONOUS 

LDR 

$R4 « + $Bl 

LOAD ID TYPE INTO $R4 

CMR 

$R4i<ASYNC 

CHECK 10 SEE IF ALREADY DONE 

BE 

>T20A 


B 

>T19A 


EuU 

$ 


LDR 

$R4 *«X'3A18• 

PUT IN SYNC* CHARACTER TO TEST 

STR 

$R4 *<LCT5S 

SYNC. LINE TYPES 

LDR 

JR4,*X'21C» 

SET LCT SYNC. FLAG 

STR 

SK4 *<LC5SYF 


LDV 

SR7,=5 

NUMBER OF 30 MS DELAY FOR 800 1 


TEST SYNCHRONOUS 

(3A AS SYNC, CHAR*) 

LAB 

$Bi*<SYNC 

LOAD LINE TYPE 

LNJ 

$B3 * <DTALOP 

LOOP SUB-ROUTINE 

B 

>T21 


DC 

<WCP1 


DC 

<LCT5 


DC 

438 


DC 

<DOUT1 



TEST B1-SYNCHRONOUS LINES (3A AS SYNC* CHAR*) 

LDR 

$R4,a$B1 

LOAD ID IYPE INTO $R4 

CMR 

$R4 *<BISYNC 

CHECK 10 SEE IF ALREADY DONE 

BE 

>T 22 


B 

>QA5 



TEST MIL 188 SYNCHRONOUS <3A AS SYNC* CHAr.) 

LAB 

$B1»<SYN188 

LOAD LINE TYPE 

LNJ 

$B3,<DTAL0P 

LOOP SUB-ROUTiNE 

B 

>T34 


DC 

<WCP1 


DC 

<LCT5 


DC 

438 


DC 

<DOUT1 


CL 

<STPFG 

CLEAR STUP I/U FLAq 

JMP 

$62 


r * 4 


444444444444*44444 


STOP I/O CHECK ROUTINE 

INC 

= $R3 

CHANGE TO TRASMIT SIDE OF LINE 

LNJ 

$B4,<STCR 

STOP I/O 

LNJ 

$B4,<INXT 

INPUT NEXT STATUS 

LB 

=$R5t=Z!1000'. 

CHECK STATUS COMPLETE 

BBT 

>TSTF3 


LNJ 

$B7»<ERRQR 

ERROR; STATUS NOT COMPLtTE 

LNJ 

$B4♦<I NRG 

INPUT RANGE 

BNEZ 

$H5 » >TSTF4 



ST 104 


LDV 

LNJ 

b 


$B f »<ERROK 

$R3 f <TSTP4A 

sjR3 

$R# »<TP1 

<WDBFG 

>ST 

$B4,«1NXT 
4B4»<I NRG 
$R5**X*220» 
>STIQ3 
$B4,<STCR 

$R4*<p15 
$B4 *<CGSCH 
s$R5 »s$K4 

>STi04 
$B7,<ERR0R 
»5T 105 

$R7,s3 
$B5 *<TDLAY 
>57101 


ERROR? RANGE IS EQUAL TO ZERO 

IF EVEN BOTH 5IDE OF THE LINE SHUT-OFF 

CHANGE $K3 TO RECEIVE SIDE OF THE LINE 

STORE XMIT RANGE RESIDUE 

SEE IF BROADBAND LINE 

SHUT RtCV# LINE OFF AFTER 70 TRANSFERS 

INPUT NEXT STATUS 

INPUT RANGE 

SEE IF 166 TRANSFERS HAVE BEEN DUNE 
IF DONE 

STOP I/O ON RECV• 

INPUT STATUS 


CHECK RECEIVED DATA 


TSTF4A LDR 
LNJ 
10 


BIOT 

LNJ 

INC 

LDR 

LNJ 

10 


0T2 


$R4 *<PQCC 
$B4«<CGSCH 
<BIT7 »s$R4 

>QT2 

$B7,<ERR0R 
= $R3 

$R4f<F0CC 
$B4 »<CGSCH 
<BIT7*=SR4 


BIOT >0T1 


LNJ 

STR 

LNJ 

ADV 

STR 

ADV 


$B7 *<ERROR 

$K5 »<TP2 
$B6«<BASE 
$R5 * s 16 
$K5*<TSTF2B 
$R5.sX'20» 


TIME DELAY BEFORE SHUTTING OFF RECEIVE 

CCB RESET FOR REC 

ERROR; I/O WAS NAk»ED 
CCB RESE1 FOR TRANSMIT 

ERROR; I/O WAS NA*»ED 

STORE RECEIVE RANGE RESIDUE 
LOAD $R5 WITH LCT BASE 







TITLE DCMC2• 

•REV / 


CLA TEST (SAF) 





PAGE 15 

00140!? 

06A4 

DF00 

0661 


STR 

SK5 *<T BTF8B 




001406 




4 






001407 

06A6 

E380 

0651 


LNJ 

$B6»<R0LCT 



READ LCT 

001406 

06A8 

0000 


TSTF2B 

OC 

0 



ADDRESS 

001409 

06A9 

0002 



OC 

2 




001410 




4 






001411 

06AA 

8980 

112E 


CMZ 

<Lcrv 




001412 

06AC 

0903 



6E 

>TS1F7K 




001413 

06AD 

F380 

QBA3 


LNJ 

SB7♦<ERRQR 



error; KECV. LCT status NOT CLEAR 

001414 




4 






001415) 

06AF 

E380 

065E 

TSTF7K 

LNJ 

$B6♦<KULCT 



REAL) LCT 

001416 

0661 

0000 


TSTF8B 

OC 

0 




001417 

0662 

0002 



OC 

2 




001416 




4 






001419 

0663 

8980 

112E 


CMZ 

<LC 1 V 



CHECK LCT STATUS IS CLEARED 

001420 

0665 

0903 



BE 

>TBTF2 




001421 

0666 

F380 

0BA3 


LNJ 

$B7,<tKR0R 



ERROR? LCT STATUS IS NOT CLEAR 

001422 

0666 

9800 

1120 

TSTF2 

LOR 

$K1»<KANGE 



CALCULATE KANgE OF GOOD DATA TO BE CHECK 

001423 

066A 

9F00 

1115 


STR 

SKI»<F6KG 




001424 

06BC 

1001 



SOL 

$R1 ♦ 1 



CHANGE TO BYTE RANGE 

001425 

06BU 

9200 

1126 


BUB 

SKI*<TPI 




001426 

066F 

1041 



SQR 

SR 1 ♦ 1 



CHANGE TO WQRuS 

001427 

06C0 

86D1 



OEC 

s$Ki 




001426 

06C1 

9F00 

1120 


STR 

SKI*<KANGE 




001429 




4 






001430 

06C3 

8980 

I2AD 


CMZ 

<LC5SYF 



CHECK FOR SYNC LINE 

001431 

06C5 

0917 



BE 

> TST F4C 




001432 

06C6 

1E04 



AOV 

SR 1 * s4 




001433 

06C7 

C800 

1126 


LOK 

SK4.<TP1 



SYNC LiNt CHECK FOR LINE MARKING 

001434 

06C9 

C2Q0 

1127 


SUB 

SK4♦< T P2 




001435 

06C6 

4041 



BOR 

SR4»1 




001436 

06CC 

CA51 



AOO 

SK4*=SK1 




001437 

Q6CD 

4EF9 



AOV 

$K4 »-7 




001436 

06CE 

CFOO 

1127 


BTK 

SR4*<TP2 




001439 

0600 

C870 

FFFF 


LOR 

SR4*5Z'FFFF* 



LINE MARKING uATA 

001440 

0602 

C910 

1C00 

T5TF5A 

CMR 

SR4♦<0IN.$K1 




001441 

0604 

0903 



BE 

> T B | F 5 




001442 

0605 

F380 

0BA3 


LNJ 

SB7 »<ERROR 



error; sync, line not marking WITH XMIT 1 

001443 

0607 

6AP1 


TSTF5 

INC 

= SR1 




001444 

0606 

9900 

1127 


CMR 

SR1»<TP2 



SEE IF ALL MAkKING DATA CHECK 

001445 

06DA 

0882 



BAGE 

>TSTF4C 




001446 

0606 

0FF7 



B 

>T5TF5A 




001447 




4 






001446 

Q6DC 

C800 

HDD 

TSTF4C 

LOR 

$R4♦<DFLT 



CHECK REMAINING OAjA IS DEFAULT (5555) 

001449 

060E 

1E07 



AOV 

SRlts7 




001450 

060F 

C910 

1C00 

TSTF40 

CMR 

$R4,<0IN.$R1 




001451 

06E1 

0903 



BE 

>TBTF4E 




001452 

06E2 

F380 

0BA3 


LNJ 

SB7 *<EKROR 



ERROK;KECEIVt DATA IN NO DATA AREA 

001453 

06E4 

8AL) 1 


TSTF4E 

INC 

= $R 1 




001454 

06E5 

9900 

1115 


CMR 

SRI»<FBRG 




001455 

06E7 

0878 



BAL 

>TS TF4D 




001456 

06E8 

OF 80 

0940 


B 

< JP4 



CHECK FINAL GOOD DATA IN DT ALOP 

001457 




* 






001458 




* 






001459 




* - - * 

- - - 


- - 

- - 


001460 




4 






001461 




4 






001462 




4 


UNDERRUN AND OVERRUN 

TEST 

001463 




4 






001464 

06 EA 

-C8I9 

4A20 

UORNTH EOR 

JtK4,sA»J. • 




001465 

06EC 

CFOO 

1364 


STR 

$R4,<ERMG+i 




001466 

06EE 

6380 

0986 


LNJ 

SB3 t<CLFG 



CLEAR ALL TEST FLAGS 

001467 

06F0 

8700 

12CA 


CL 

<LCT8FG 




001468 

06F2 

8A80 

112C 


INC 

<WOBFG 




001469 

06F4 

8A80 

1124 


INC 

<RUNFG 



5ET UNOEKRUN AND OVERRUN TEST FLAG 

001470 

06F6 

C870 

021D 


LOR 

SR4,*X»21D» 




001471 

06F8 

CFOO 

1266 


BTR 

$R4»<LCT6TF 




001472 

06FA 

7C06 



LOV 

SR7t=6 



NUMBER OF 30 MS TIME DELAY FOR TRANSFER 

001473 

06F6 

C870 

0E18 


LDR 

$R4 ♦ - X * El 8 ' 



SET LINE SPEED FOR ASYC. LINES 

001474 

06F0 

CFOO 

12B4 


STR 

SR4 » <LCT 6B 




001475 




4 






001476 




4 


TEST ABYCHRONOUB 

LINES 

WITH BAUD RATE 

001477 




4 


9600 BAUD* 1 

WITH 

1 

STOP BIT 

001478 




4 






001479 

06FF 

9B80 

1176 

T24 

LAB 

SB1»<ASYN1 



LOAD LINE TYPE 

001460 

0701 

6380 

0881 

T24Z 

LNJ 

SB3♦<0T ALOP 



GO TO LOOP SUB-ROUTINE 

001481 

0703 

0F85 



B 

>T25 



■ > 

001482 

0704 

12E3 



OC 

<WCP4 



ADDRESS TABLE FOR BLOCK WRITE 

001483 

0705 

12AF 



OC 

<LCT6 



LCT TABLt 

001484 

0706 

003F 



OC 

( OFLT-OOUT ) 



RANGE IN WORDS 

001485 

0707 

119E 



OC 

<OOUT 




001486 




4 






001487 




4 


TEST CURRENT LOOP ASYNCHRONOUS 

001486 




4 






001489 

0708 

C871 


T25 

LOR 

SR4 ♦ ♦SB1 



LOAD ID TYPE INTO $R4 

001490 

0709 

C900 

1177 


CMR 

$R4 ' <A5YNC 



CHECK 10 SEE IF ALREADY DONE 

001491 

0706 

0902 



BE 

>T25Z 




001492 

070C 

0FF5 



B 

>T24Z 




001493 


0700 


T25Z 

tuu 

$ 




001494 

0700 

8700 

U2C 


CL 

<WDBFG 




001495 

070F 

F870 

4010 


LOR 

SR7»sZ*4010» 




001496 

0711 

FFOO 

12B6 


BTK 

SR7 * <LCT6T F 




001497 

0713 

F870 

1618 


LDR 

$R7'sZ*1618* 



5T0RE SYNC. CHAR. INTO OCT TABLE 

001496 

0715 

FFOO 

12B4 


STR 

SR7 »<LCT6S 




001499 

0717 

7C40 



LDV 

$R7 ♦ sX ’ 40* 



NUMBER OF 30 MS TIME DELAYS 

001500 




4 






001501 




4 


TEST SYNCHRONOUS 

LINES 

(16 AS SYNC. CHAR.) 

001502 




4 






001503 

0718 

9680 

1.178 


LAB 

SBl»<5YNC 



LOAD LiNt TYPE 

001504 

071A 

6380 

0881 

QA6 

LNJ 

$B3 »<OTALOP 



GO TO LOUP SUB-ROUTINE 

001505 

071C 

0F85 



B 

>T26 




001506 

0710 

12E3 



OC 

<WCP4 



ADDRESS TABLE FOR BLOCK WRITE 

001507 

071E 

12AF 



OC 

<LU6 



LCT TABLt 

001508 

07 IF 

002F 



DC 

(0FLT-00UT1) 



RANGE IN WORDS 

001509 

0720 

11AE 



OC 

<00UT1 




001510 




4 






001511 




4 


TEST BI-SYNCHRONOUS 

LINES (16 AS SYNC. CHAR.) 

001512 




4 






001513 

0721 

C871 


T26 

LOR 

SR4 «♦SBl 



LOAD ID TYPE INTO $R4 

001514 

0722 

C900 

1179 


CMR 

$R4 »<BI SYNC 



CHECK TO. SEE IF ALREADY DONE 

001515 

0724 

0902 



BE 

>T27 




001516 

0725 

0FF5 



6 

>0A6 




001517 




4 









TITLE DCMC2♦ »REV A* 


CLA TEST (SAF) 
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TITLE DCMC2* 

* REV A* 

CLA TEST (5AF) 
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OOU>25 

07BC 

CFOO 

1127 


STK 

$K4 * <1P2 


001626 

078E 

7C02 



LDV 

$R7 * = 2 

LOAD WITH NUMBER OF 30MS DELAY 

001627 




* 




00162b 

078F 

9B8Q 

1175 


LAB 

$B1» <ASYN 

LOAD $61 WITH ADDRESS OF LINE TYPE 

001629 

0791 

6380 

0764 


LNJ 

$B31 <LOPDS 

BRANCH TO LOOP DSS INTO DSC AND CHECK 

001630 




# 




001631 

0793 

9B8Q 

1176 


LAB 

4B1i<ASYN1 

LOAD ADDRESS OF LINE TYPE 

001632 

0795 

B380 

07B4 


LNJ 

$63i<LOPDS 


001633 




* 




001634 

0797 

9B80 

1239 


LAB 

$B1»<TLTBLC 

STOKE SHOULD uE ADDRESS FOR ZV$C 

001635 

0799 

9F80 

07F6 


STB 

$B1»<L0RD7*4+$AF 


001636 

079b 

9680 

1177 


LAB 

$61*<ASYNC 

LOAD ADDRESS uF LINE TYPE 

001637 

0790 

B380 

0764 


LNJ 

$B3t<L0PDS 


00163b 




# 




001639 

&79F 

9880 

1230 


LAB 

$61»<ILTBLS 


001640 

07A1 

9F80 

07F6 


STB 

$61»<LOPD7*4+$AF 


001641 

07A3 

C870 

F810 


LDR 

$R4*=Z'F81D» 

CHANGE MASK FuR SYNC, LINES 

001642 

07A5 

CFOO 

1260 


STK 

$K4 *<LC7SM 


001643 

07A7 

9680 

1179 


LAB 

$61»<BISYNC 


001644 

07A9 

B380 

0764 


LNJ 

$63 »<LOPDS 


001645 




* 




001646 

07Ad 

9680 

1178 


LAB 

$61f <SYNC 


001647 

0 7 AO 

6380 

07B4 


LNJ 

$63»<L0PDS 


001646 








001649 

07AF 

9B80 

117A 


LAB 

$61»<SYN188 


001650 

07bl 

6380 

07B4 


LNJ 

$63 » <LORDS 


001651 

07 63 

8382 



JMP 

$62 


001652 




# 




001653 




* * # 

* * * 

a*##*###*** 

**#**#####*#***#****#* 

001654 




* 




001655 




* 


LOOP AND TEST DSC INTO 

DSS LOOP 

001656 




# 




001657 




* 




001656 

0764 

9F80 

07B9 

LORDS 

STB 

$BU<LUPD1 

STORE ADDRESS OF LINE TYPE 

001659 

0766 

8753 



CL 

= $K3 


001660 

07B7 

0380 

0638 

LORD 

LNJ 

$B5♦ <FLN 

FIND LINE ON 

001661 

07B9 

0000 


L0RD1 

KESV 

$AF»Q 

LINE TYPE ADDRESS 

001662 

07BA 

6383 



JMP 

$63 


001663 

0766 

C380 

OAF 3 


LNJ 

$B4,<GENITZ 

GENERAL INITIALIZE 

001664 




# 




001665 




* 1 

FINITE 

CHANNEL PROGRAM AND TLU TABLE INTO RaM 

001666 




* 




001667 

0 /60 

C570 

FF80 


AND 

$K41 = 2 * FF80 * 


00166b 

07bF 

C470 

0040 


OR 

$K4♦sX * 40 * 


001669 

07C1 

CFOO 

UOA 


STK 

$K4t <CHNZ 


001670 





CALL 

ZV$MLW»CHLP5 « WCP5 *HX200 *CHNZ 


07C3 

F6C0 

0003 






07C5 

0380 

0000 

X 





07C7 

OF 80 







07C8 

0E49 







07C9 

12E8 







07CA 

1250 







07C6 

UOA 






001671 





CALL 

2V$MLW «1LUTB2♦WCP56 * 

HX400»CHNZ 


07CC 

FBCO 

0003 






07Ct 

0380 

0000 

X 





0700 

0F80 







0701 

1246 







0702 

12E9 







0703 

125£ 







0704 

110A 






001672 




* 




001673 

0705 

0380 

0624 


LNJ 

$b5 *<SETLCT 

SEND OUT LCT LOCATIONS 

001674 

0707 

12B9 



DC 

<LCT 7 


001675 




# 




001676 

0708 

C800 

1127 


LDK 

$K4 * <IP2 

LOAD $R4 WITH RANGE 

001677 

070A 

0380 

0682 


LNJ 

$65 * <MCCB 

form ccb to transfer dss into memory 

001678 

07DC 

1C00 



DC 

<DI N 


001679 

0700 

0060 



DC 

X' 60' 


001680 




* 




001681 

070E 

C800 

10FC 


LDK 

$K4«<F0CC 

form I/O CONTROL WORD 

001682 

07E0 

C380 

067E 


LNJ 

$64,<CGSCH 

FOR STARI I/O 

001683 

07E2 

8000 

1180 


10 

<61T1»=$R4 



07E4 

0054 






001684 

07E5 

0703 



BIOT 

>L0PD2 


001685 

07E6 

F380 

06A3 


LNJ 

$B7f<EKK0K 

ERROR; I/O WaS NAk»£D 

001686 

07E8 

0380 

0B4C 

L0PD2 

LNJ 

$B5»<TDLAY 

TIME DELAY 

001687 




* 




001688 

07EA 

C380 

OBOE 


LNJ 

$64,<1NXT 

INPUT NEXT STATUS 

001689 

07EC 

8205 



LB 

=$K5»=2*1000* 

CHECK STATUS COMPLETE 


07E0 

1000 






001690 

07EE 

0503 



BBT 

>L0PD7 


001691 

07EF 

F380 

0BA3 


LNJ 

$B7»<EKK0K 

ERROR; STATUS NUT COMPLETE AFTER GNB 

001692 




L0PD7 

CALL 

ZV$C,$,DIN,MASK,$,ERAK 


07F1 

FBCO 

0003 






07F3 

0380 

0000 

X 





07F5 

0F80 







07F6 

07F1 







07 F 7 

1C00 







07F8 

111A 







07F9 

07F1 







07FA 

1131 






001693 

07F6 

8980 

1131 


CM2 

<ERAK 

CHECK FOR ERROR 

001694 

07F0 

090D 



BE 

>L0PD3 


001695 

07FE 

0800 

1133 


LDR 

$K5»<EKAK+2 

PUT 'IS* INTO $R5 

001696 

0800 

E800 

1132 


LDK 

$K6t<EKAR+l 

PUT 'SHOULD Be' INTO $R6 

001697 

0802 

F800 

1131 


LDK 

$K7 »<EKAR 

PUT WORD COUNT INTO $R7 

001698 

0804 

F380 

06A3 


LNJ 

$67,<EKK0K 

ERROR; DSC DID NQt LOOP INTO DSS CORRECTLY 

001699 





CALL 

2V$C0 

continue checking for error 


0806 

FBFO 

0001 






0808 

0380 

0000 

X 




001700 

ObOA 

3E02 


L0PD3 

ADV 

$K3.=2 

CHANGE TO NEXT LINE 

001701 

0806 

OF80 

07B7 


B 

<L0PD 


001702 




* 




001703 




* 




001704 




# - - 

- - - 



001705 




* 




001706 




* 


TRANSMIT MARK AND SPACE TEST 

001707 




* 




001708 

0800 

C870 

4C20 

XMMSL 

LDK 

$K4,sA»L • 


001709 

080F 

CFOO 

1364 


STR 

$K4,<EKMG+1 


001710 

0811 

6380 

098B 


LNJ 

$B3 »<CLFG 


001711 

0813 

C870 

FF07 


LDK 

$K4» s2 * FF07 * 

ALTER DA I A 




CLA TEST (SAF) 
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TITLE DCMC2» ’REV A» 


001712 

0615 

CF00 

11A1 


STR 

$R4,<O0UT43 


001713 

0817 

8700 

111A 


CL 

<MASK 


001714 

0819 

C870 

081A 


LOR 

*R4,sX*8lAt 

LOAD LET WITH MARK BIT 

001715 

061B 

8A80 

111D 


INC 

<PARFG 


001716 

0810 

8A80 

1128 


INC 

<TRMRK 


001717 

081F 

EB80 

1177 


U2 LAB 

$B6♦<ASYNC 

LOAD $B6 WITH ADDRESS OF TABLE END 

001716 

0821 

CFOO 

1200 


STR 

$R4»<LCT9MS 


001719 

0823 

7C06 



LOV 

$R7»s6 

NUMBER OF 60 MS DELAY 

001720 





4 



001721 





4 

TEST ALL ASYNCHRONOUS 

LINES 

001722 





4 



001723 

0624 

2C01 



LOV 

$R2**1 

LOAD INDtX 

001724 

0825 

9B80 

1175 


LAB 

$B1»«ASYN 


001725 

0627 

B380 

0881 


U3 LNJ 

$B3»<DTALQP 

LOOP SUB-ROUTINE 

001726 

0829 

OF 8 5 



B 

>U1 


001727 

082 A 

12FB 



OC 

<WCP9 


001726 

0626 

12CC 



oc 

<LCT9 


001729 

082C 

0005 



DC 

5 


001730 

0620 

119E 



DC 

<DOUT 


001731 





4 



001732 


082E 



U1 EOU 

$ 


001733 

0826 

9006 



CMB 

$B1« s$B6 

SEE IF ALL ASYNCHRONOUS LINES TESTED 

001734 

082F 

0903 



BE 

>U5 


001735 

0830 

9BA1 



LAB 

$bl,5,Bl.$K2 


001736 

0831 

0FF6 



B 

>U3 


001737 





4 



001736 

0832 

C870 

101A 


U5 LOR 

$R4 » bX * 101A * 

LOAD LCT FOR SPACE CONOIUON 

001739 

0834 

C900 

12D0 


CMR 

$K4 * <LCT9MS 

CHECK IF ALREADY DONE 

001740 

0636 

09E9 



BNE 

>U2 


001741 

0837 

8700 

1110 


CL 

<PARFG 


001742 

0839 

8700 

1128 


CL 

<TRMRK 


001743 

0836 

C870 

0607 


LOR 

$R4,bX’607» 

PUT DAI A BACK TO NORMAL 

001744 

0630 

CFOO 

11A1 


STR 

$R4 *<00UT + 3 


001745 

083F 

8382 



JMP 

$B2 


001746 





4 



001747 





44444444444444444 


001748 





4 



001749 





4 

DATA CHECK FOR XMIT MARK AND SPACE 

001750 





4 



001751 


0840 



XMSCK EOU 

$ 


001752 

0840 

8F00 

1145 


SAVE 

<SAV2t=2»0002» 

SAVE $06 


0842 

0002 






001753 

0843 

0B80 

1251 


LAB 

$B5«<XMSB 

LOAD ADDRESS FOR Zv$C 

001754 

0845 

C800 

1200 


LOR 

$R4,<LCT9MS 

CHECK LCI TO SEE IF MARX 

001755 

0847 

C970 

081A 


CMR 

$R4»sX»81A» 

B IF MARK TEST 

001756 

0849 

0903 



BE 

>XMSCK1 


001757 

084A 

0B80 

1255 


LAB 

$B5 t<XSSB 

LOAD ADDRESS OF SPACE SHOULD BE 

001758 

084C 

0F60 

0853 


XMSCKi STB 

SB5 *<XMSCK2+4't$AF 

STORE SHOULD ADDRESS FOR 2V$C 

001759 





XMSCK2 CALL 

2V$C*$*01N*MASK,C4,ERAR 


084E 

FBCO 

0003 






0850 

0380 

0000 

X 





0852 

OF 80 







0853 

084E 







0854 

ICOO 







0855 

111A 







0656 

USA 







0857 

1131 






001760 

0858 

8980 

1131 


CM2 

<ERAR 

CHECK FOR ERROR 

001761 

085A 

0900 



BE 

>XMSCK3 


oomz 

QJJJjB 

0800 

1113 


LOR 

SR 5 i< ERAR t2_. 

PUT ’IS* INTO $R5 

001763 

0850 

E800 

1132 


LOR 

$R6*<ERAR+i 

PUT ’SHOULD BE’ INTO $R6 

001764 

085F 

F800 

1131 


LOR 

SR7 *<ERAR 

PUT WORD COUNT INTO $R7 

001765 

0861 

F 380 

0BA3 


LNJ 

$B7»<ERR0R 

ERROR: IRANSmIT mark or SPACE ERROR 

001766 





CALL 

2VSC0 

CONTINUE CHECKING FOR ERROR 


0863 

FBFO 

0001 






0865 

0380 

0000 

X 




001767 

0867 

C870 

101A 


XMSCK3 LOR 

$R4»rX*101A* 


001768 

0869 

C900 

1200 


CMR 

$R4 »<LCT9MS 


001769 

086B 

0991 



BNE 

>XMSCK5 


001770 

086C 

E380 

099C 


LNJ 

$B6»<BASE 

LOAD $K5 WITH LCT BASE 

001771 

086E 

5E3C 



AOV 

$R5 »s60 


001772 

Q86F 

OFOO 

0873 


5TR 

$R5t<XMSCK4 

STOKE ADDRESS TO READ LCI 

001773 





4 



001774 

0871 

E380 

0B5E 


LNJ 

$B6»<R0LCT 


001775 

0873 

0000 



XMSCK4 OC 

0 

ADDRESS 

001776 

0874 

0002 



OC 

2 


001777 





4 



001778 

0875 

0870 

FEOO 


LOR 

$K5*sZ’FE00’ 

LOAD $K5 WITH SHOULD BE 

001779 

0877 

0900 

112E 


CMR 

$R5 »<LCTV 


001780 

0879 

0903 



BE 

>XMSCK5 


001781 

087A 

F380 

0BA3 


LNJ 

$B7 »<ERROR 

error; framing error FAILURE 

001782 

087C 

8F80 

1145 


XMSCK5 RSTR 

<SAV2»s2'0002» 

RESTORE *B6 


087E 

0002 






001783 

067F 

0F80 

0985 


B 

< JP5A 


001784 





4 



001785 

AA 1 7 DA 





4 



UUl / 00 

001787 

0861 

8F00 

1155 


OTALOP SAVE 

<SAV3«s2'0112» 

SAVE $B3*$B6 


0883 

0112 






001788 

0684 

9F80 

0889 


STB 

$B1»<TG1 

FOR FIND LINE ON 

001789 

0686 

8753 



CL 

sSR3 

CLEAR $K3 

001790 

0887 

0380 

0B38 


NXLT LNJ 

$B5»<FLN 

FIND LINE ON 

001791 

0889 

0000 



TGI RESV 

$AF»0 


001792 

088A 

8383 



JMP 

$B3 

NO LINE ON RETURN 

001793 





4 



001794 





CALL 

2VSF»OIN,OFLT*HX20O 

FILL INPUT BUFFER 


088B 

FBCO 

0003 






0880 

0380 

0000 

X 



•, 4 


068F 

0F80 







0890 

ICOO 







0891 

HDD 







0692 

1250 






001795 

0893 

C808 

0689 


LOR 

$R4,4<TG1 


001796 

0895 

C900 

1177 


CMR 

$R4»<ASYNC 


001797 

0897 

0983 



BNE 

>OTAL 

B IF NOT CURRENT LOOP ADAPTER 

001796 

0898 

C380 

09FD 


LNJ 

$B4 »<SCLS 

SET CORKENT LOOP ADAPTER SPEED 

001799 

089A 

BBC 3 

0001 


OTAL LAB 

$B3tSB3.1 

DUMMY INCREMENT OF $B3 

001600 

089C 

C380 

0AF3 


LNJ 

$B4»<GENITZ 

GENERAL INITIALIZE 

001801 

089E 

0CF3 



LOB 

SB5t +$B3 

GET ADDRESS TO STORE FOR ZV$MLW CHANNEL 

001802 

089F 

C570 

FF80 


AND 

$R4,s2»FF80» 

SET CHANNEL FUR ZV$MLW 

001803 

08A1 

C470 

0040 


OR 

$R4,sX»40» 

OR IN DIRECTION BIT 

001804 

08A3 

CFOO 

110A 


STR 

$R4*<CHN2 

STORE CHANNEL FOR ZVSLlB CALL 

001805 

08A5 

CCF5 



LOB 

$B4,tSB5 

LOAD AND STORE ADDRESS FOR 








TITLE DCMC2* »REV A 


CLA TEST (SAF) 
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001606 

08A6 

CF80 

08BA 



bTB 

$B4,<LPWKT+4+S,AF 

2VSLIB CALL 

001607 

06A8 

CCF5 




LOB 

$B4 « + 5BS 


001606 

08A9 

CF80 

08C3 



STB 

$B4,<LPWRTl«-4 + $AF 


001609 

08AB 

0F80 

08BB 



STB 

$BS«<LPWRT*4+2*$AF 


001610 

08AD 

0BC5 

0001 



LAB 

SBbtSBb.l 

INCREMEN1 $B5 

001611 

08AF 

0F80 

08C4 



STB 

$B5*<LPWRTi*4+2*SAF 


001812 

08B1 

OBCb 

0001 



LAB 

$B5,SB5.1 


001613 

06B3 

0F80 

08C5 



STB 

$Bb * <LPWKT1*4*3#$AF 


001814 





* 




00181b 





LPWRT 

CALL 

2V$MLW»$»$»HX200,CHN2 


Ofabb 

FBCO 

0003 







08b7 

0380 

0000 

X 






08B9 

0F80 








06BA 

08B5 








08BB 

08B5 








08BC 

1250 








08B0 

110A 







001816 





LPWRT1 

CALL 

2VSMLW *S »$ *S» CHN2 



08BE 

FBCO 

0003 







06C0 

0380 

0000 

X 






08C2 

0F80 








08C3 

08BE 








08C4 

08BE 








08C5 

08BE 








06C6 

110A 







001817 





* 




001816 

08C7 

0CF3 




LOB 

$B5 * + $B3 

STORE ADDRESS FOR LCT TABLE 

001619 

ObCb 

0F80 

08CC 



STB 

$B5 *< TG2 


001820 





# 




001821 

08CA 

0380 

0B24 



LNJ 

$B5 *<SETLCT 

SENO OUT LCT 

001822 

ObCC 

0000 



TG2 

KESV 

SAF«0 


001823 





* 




001824 

08CD 

C800 

1OFC 



LOR 

$R4 * <FOCC 

CCB RESEI for rec 

00182b 

08CF 

C380 

0B7E 



LNJ 

$B4 %<CGSCH 


001626 

0801 

8000 

1184 



10 

<BlT7i=$R4 



0803 

0054 







001827 

0804 

0703 




BIOT 

>0T2 


001626 





* 




001829 

0805 

F380 

0BA3 



LNJ 

$B7 *<ERROR 

ERROR; I/O WAS NAk»ED 

001630 





* 




001631 

0807 

8A03 



0T2 

INC 

s$R3 


001632 

0808 

C800 

10FC 



LOR 

$R4 « <FOCC 

CCB RESEI FOR TRANSMIT 

001833 

080A 

C380 

0B7E 



LNJ 

JB4 t <CGSCH 


001834 

080C 

8000 

1184 



10 

<BIT7*s$R4 



ObOE 

0054 







00163b 

oaoF 

0703 




BIOT 

>0T3 


001836 





# 




001837 

08E0 

F380 

0BA3 



LNJ 

$B7 fcERROK 

ERROR; 1/0 WAS NAk»ED 

001638 





# 




001839 

08E2 

C803 



DT3 

LOR 

SR4,$B3 

LOAD RANGE 

001840 

08E3 

CFOO 

1120 



STR 

$R4»<KANGE 

STORE RANGE FOR 2V$C 

001841 

08E5 

4001 




SOL 

$R4,l 

convert ro bytes for ccb range 

001842 





* 




001643 

08E6 

BBC3 

0001 



lab 

$B3»SB3.1 


001844 

06E8 

0CF3 




LOB 

$B5«+SB3 

STORE ADDRESS FOR TRANSMIT BUFFER 

00184b 

08E9 

OF80 

08EF 



STB 

$B5 »<TG3 

FOR CCB FORMA[ION 

001646 

06EB 

0F80 

0945 



STB 

$B5»<JP4+4+JAF 

FOR DATA CHECK CALL(2V*C> 

001847 





# 




001846 

08E0 

0360 

0B82 



LNJ 

$Bb * <MCCB 

FORM CCB FOR TRANSMIT 

-00L649 

08EF 

OQOQ 



I.§3 

K£SV 

SAFjO 


0018b0 

08F0 

0060 




oc 

X * 60 • 


Q018bl 





* 




001652 

08F1 

8803 




DEC 

s$R3 

GET RECV. CHANNEL 

001853 

06F2 

0380 

0B82 



LNJ 

$B5 t <MCCB 

FORM CCB FOR RECIEVE SIDE 

001854 

08F4 

1C00 




OC 

<DIN 


00185b 

08F5 

0060 




OC 

X' 60' 


001856 





# 




001857 

08F6 

5C01 




LOV 

$Kb *s 1 

START i/U ON XM1T SIDE TO StT 

001858 

08F7 

8AD3 




INC 

= $R3 

CONFIG* AND XMIT FILL CHAR. (SYNC. ONLY) 

001859 

08F8 

F£55 




SWR 

SR7,s$R5 


001660 

08F9 

C800 

10FC 



LOR 

SR4,<F0CC 


001661 

08FB 

C380 

0B7E 



LNJ 

$B4 * <CGSCH 


001662 

08F0 

8980 

1128 



CM2 

<TRMRK 


001663 

08FF 

0980 

0907 



BNE 

<MELCO 


001864 

0901 

8000 

1180 



10 

<BIT1*=$R4 



0903 

0054 







00166b 

0904 

0703 




BIOT 

>MELCO 


001866 

0905 

F380 

0BA3 



LNJ 

$B7 »<ERROR 


001867 

0907 

0380 

0B4C 


MELCO 

LNJ 

$B5,<TDLAY 


001666 

0909 

FE55 




SWR 

$R7«s*R5 


001869 

090A 

8803 




DEC 

s$R3 


001670 





# 




001871 

090B 

C800 

10FC 



LOR 

$R4♦<FOCC 


001672 

0900 

C380 

0B7E 



LNJ 

$B4 » <CGSCH 

FORM I/O FOR START I/O 

001873 

090F 

8000 

1180 



10 

<BIT 1 * = SR4 



0911 

0054 







001674 

0912 

0703 




BIOT 

> JP2 


001675 

0913 

F380 

0BA3 



LNJ 

$B7 f <ERROR 


001676 

0915 

0380 

0B4C 


JP2 

LNJ 

$B5 *<T OLAY 

TIME DtLAY 

001677 

0917 

8980 

112B 



CM 2 

<STPFG 

CHECK STOP I/g TESj FLAG 

001878 

0919 

0903 




BE 

> JP2A 


001879 

091A 

0F80 

0659 



B 

<ST 10 

BRANCH TO STOP I/O AND CHANNEL RESET TEST 

001680 

091C 

8980 

1110 


JP2A 

CM 2 

<PARFG 


001881 

091E 

0908 




BE 

> JP2B 


001882 

091F 

8980 

HOB 



CM2 

<COUNT 


001883 

0921 

0900 

05FC 



BE 

<PAK1 

BRANCH TO CHECK THAT PARITY ERROR SET 

001884 

0923 

8A03 




INC 

*SR3 


001885 

0924 

0F80 

0840 



B 

<XMSCK 

B TO MARK AND SPACE CHECK ROUTINE 

001886 

0926 

C380 

OBOE 


JP2B 

LNJ 

$B4,<JNXT 

INPUT NEXT STATUS ON REC. SIDE 

001687 

0928 

E870 

1000 



LOR 

$R6 is2*1000* 


001688 

092A 

8205 




LB 

*JR5* S 2 * 1000 * 

SEE IF STATUS COMPLETE 


092B 

1000 







001889 

092C 

0503 




bBT 

>JP3 


001890 

0920 

F380 

0BA3 



LNJ 

$B7 t<ERROR 

STATUS NOT COMPLETE ON REC* 

001891 





* 




001892 

092F 

8A03 



JP3 

INC 

*SR3 


001893 

0930 

C380 

ObOE 



LNJ 

SB4,<INXT 

INPUT NEXT STATUS ON XMIT SIDE 

001894 

0932 

6205 




LB 

s$Rb»s2» 1000 » 

SEE IF STATUS COMPLETE 


0933 

1000 







00169b 

0934 

0503 




BBT 

> JP4A 


001896 

0935 

F380 

0BA3 



LNJ 

SB7,<ERR0R 

STATUS INCOMPLETE ON xMIT SIDE 

001897 

0937 

8980 

1124 


JP4A 

CM2 

<KUNFG 


001898 

0939 

0980 

0736 



BNE 

<RUNCK 

BRANCH TO OVERRUN AND UNDERRUN TEST 



TITLE DCMC2♦ ’REV A* 


CLA TEST (SAP) 
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001699 

001900 

0936 

8960 

HOF 

* 

CMZ 

<CRCFG 

TEST CKC 

AND 

PARITY FLAG 

001901 

0930 

0903 



BE 

> JP4 

FLAG NUT 

SET 

JU5T CHECK OATA 

001902 

001903 

093E 

0380 

0440 

* 

LNJ 

$65 « <CKPRT 

GO CHECK 

CRC 

RESIDUE AND PARITY 

001904 




ft 






001905 




ft 


CHECK IF DATA 

LOOP CORRECTLY 



001906 




ft 






001907 




JP4 

CALL 

ZV$C.$»DIN*MASK 

♦RANGE.ERAR 





0940 

FBCO 

0003 








0942 

D380 

0000 

X 







0944 

0F80 









0945 

0940 









0946 

1C00 









0947 

111A 









0948 

1120 









0949 

1131 








001908 

094A 

8980 

1131 



CM Z 

<ERAR 

CHECK FOR ERROR 


001909 

094C 

090D 




BE 

> JP5 



001910 

094D 

D800 

1133 



LDR 

$R5.<ERAR+2 

PUT IS IN $R5 


001911 

094 F 

E800 

1132 



LDR 

$R6t<EKAR*l 

PUT SHOULD BE INTO $R 6 


001912 

0951 

F800 

1131 



LDR 

$R7»<ERAR 

PUT WORD COUNT INTO $R7 


001913 

0953 

F 380 

0BA3 



LNJ 

$B7 *<ERRGR 



001914 






CALL 

2V$C0 

CONTINUE LOOKING FOR eRRURS 



0955 

F6F0 

0001 








0957 

D380 

0000 

X 






001915 

0959 

8960 

1109 


JP5 

CM2 

<CHSZFG 

CHECK CHARACTER 5IZE TEST FLAG 


001916 

0956 

092A 




BE 

> JP5A 

IF SET CHECK HIGH ORDER DIGITS 

FOR ZERO’S 

001917 

095C 

5C08 




LDV 

$R5 **8 



001918 

0950 

D900 

HOC 



CMK 

$R5 .<CS 



001919 

095F 

0926 




BE 

> JP5A 



001920 

0960 

8600 

111A 



CPL 

<MASK 

COMPLEMENT MA^K TO CHECK QTHtR 

BITS 

001921 






CALL 

ZV$F,D1N1.CPFL&+3. 

RANGE CLEAR SHOUcD BE TO ZERO’S 



0962 

FBCO 

0003 








0964 

D380 

0000 

X 







0966 

0F80 









0967 

1D00 









0968 

119A 









0969 

1120 








001922 






CALL 

ZVSC.DINl.DIN,MASK 

.RANGE.ERAR 



096A 

FBCO 

0003 








096C 

D380 

0000 

X 







096E 

0F80 









096P 

1D00 









0970 

1C00 









0971 

111A 









0972 

1120 









0973 

1131 








001923 

0974 

8960 

1131 



CM2 

<ERAR 

CHECK FOR ERRuRS 


001924 

0976 

090D 




BE 

> JP5B 



001925 

0977 

D800 

1133 



LDR 

$R5,<ERAR + 2 

PUT IS INTO $K5 


001926 

0979 

E800 

1132 



LDR 

$R6 , <EKAR +1 

PUT SHOULD BE INTO $R6 


001927 

0976 

F800 

1131 



LDR 

$R7.<EKAR 

PUT WORD COUNT INTO $R7 


001928 

097D 

P38Q 

0BA3 



LNJ 

$67 ,<ERRQK 

ERROR; SOME HIGH ORDER BITS SET IN CHARACTER 

001929 






CALL 

zv$cu 

CONTINUE LOOKING FOR E«RURS 



097F 

FBFO 

0001 ; 








0981 

D380 

0000 

X 






001930 

0983 

8600 

111A 


JP5B 

CPL 

<MASK 

RESET MASK 


001931 





* 





00.1932 

.0.985. 

. MU 2. 



J.P5A 

JiiC 

»$R3 

FINO. NEXL.i.iNt.ON OF .Till * T_XP.£ 


001933 

0986 

8F80 

115 5 



RSTR 

<SAV3t=2»0112* 

RESTORt $B3.$a6 



0988 

0112 








001934 

0989 

0F80 

0887 



B 

<NXLT 




001935 * 

001936 * 


001937 

001938 




ft 



001939 




* 


CLEAR TEST FLAGS 

001940 




ft 



001941 

098B 

8700 

HOF 

CLF'G 

CL 

<CRCFG 

001942 

098D 

8700 

HID 


CL 

<PAKFG 

001943 

09 8 F 

8700 

1129 


CL 

«5BTFG 

001944 

0991 

8700 

1126 


CL 

<STPFG 

001945 

0993 

8700 

112C 


CL 

<WDBFG 

001946 

0995 

8700 

1106 


CL 

<ARPG 

001947 

0997 

8700 

1109 


CL 

<CHSZFG 

001948 

0999 

8700 

1124 


CL 

<RUNFG 

001949 

001950 

001951 

099B 

8383 


ft 

JMP 

$63 

001952 




ft 



001953 




ft 


LOAD $R5 WITH LCT BASE ADDRESS 

001954 




ft 



001955 

099C 

D853 


BASE 

LDR 

$R5,s$R3 

001956 

0990 

5041 



SOR 

$R5.i 

001957 

099E 

5F40 



MLV 

$R5,sX * 40’ 

001958 

001959 

099F 

8386 


ft 

JMP 

$66 

001961 




ft 



001962 




ft 


CRC GENERATOR 

001963 




ft . 



001964 




ft 


OUTPUT - TAKES TABLE OF DATA AND FuRMS ACCUMULATED CRC. 

001965 




ft 


ONLY FOR CRC16 AND CCITT. 

001966 




ft 



001967 




ft 

TO USE. MUST SET; 

001968 




ft 


R6 - NUMBER OF BITS IN CHAR. 

001969 




ft 


R7 - RANGE IN BYTES 

001970 




ft 


63 - 1 ABLE ADDRESS 

001971 




ft 


66 - ADDRESS JF CRC TYPE. 

001972 




ft 



001973 




ft 



001974 




ft 


LNJ $64.<CRC 

001975 




ft 



001976 




ft 



001977 




ft 

$63 - 

ADDRESS where crc accumulator is stoked 

001978 




ft 

$66 - 

ADDRESS OF CRC TYPE 

001979 




ft 



001980 




ft 

$R6 - 

CONTAINS NUMBER OF BITS IN CHARACTER 

001981 




ft 

$R7 - 

THE NUMbER OF CRC TO BE 

001982 




ft 


GENERATED FROM THE TABLE AT $B3 

001983 




ft 



001984 




ft 

THE ACCUMULATED CRC IS STORED IN LOCATION CKCAC. 


<n- 

v> 







TITLE DCML2* 

•REV A 


CLA TEST (SAF) 
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001985 




# 





001986 

09A0 

8 FOO 

1135 

CRL 

SAVE 

<SAV1i=Z•F994• 




09A2 

F994 







001987 

09A3 

C876 



LOR 

$R4,+$66 


PUT CRL IYPE iNTO $R4 

00198b 

09A4 

8751 



LL 

aSRl 



001989 

09A5 

8753 



LL 

s$R3 


CLEAR $R3 FOR LONG SHIFT 

001990 

09A6 

8752 



LL 

s$R2 



001991 

09A7 

8256 



NEG 

s$R 6 



001992 

09A8 

EFOO 

1125 


bTR 

$K6,<TL0C 


STORE COUNTER 

001993 

09AA 

02 FF 



LLH 

$R5 ,$B3. + $R3 



001994 

09Ab 

7001 



bOL 

$K7 «1 



001995 

09AC 

8257 



NEG 

= $R7 



001996 

09AD 

0F51 


CRLA 

STR 

$K5 ,s$Rl 



001997 

09AE 

5041 



bOR 

$R5 , l 



001998 

09AF 

9652 



XOR 

$Kl,s$R2 



001999 

09b0 

2041 



bOR 

$R2»i 



002000 

09b 1 

1602 



6 EVN 

$R1*>CRCB 



002001 

09B2 

A654 



XUR 

$R2 » s$R4 



002002 

0963 

67FA 


CRLb 

bINC 

$R 6 »>LRCA 



002003 

09(34 

DOFF 



LOH 

$R5 « $63, +$R3 



002004 

09(35 

E800 

1125 


LOR 

$R6,<TL0C 


RE5ET CHAR. LuUNT 

002005 

09(37 

7 7F6 



BINC 

$R7 »>LRCA 


DO NEW CHARACTER 

002006 

0908 

AFOO 

110E 


bTR 

$R2t<LRLAC 


STORE LAST CRL ACCUMULATED 

002007 

09(3A 

8F80 

1135 


RbTR 

<bAV1 * =2•F994• 


RESTORE REGS, 


09BC 

F994 







002008 

0960 

8384 



JMP 

$64 



002009 




# 





002011 




4 





002012 




ft 


PARITY CALCULATOR 



002013 




ft 





002014 




ft 


TO UbE« 

MUbT 

SET; 

002015 




ft 


$R7 - 

RANGE OF DATA IN WORDS 

002016 




# 


$61 - 

ADDRESS OF OATA AFTER PARITY HAS BEEN ADDEt 

002017 




ft 


$63 - 

ADDRESS UF DATA 10 ADD PARUY ON 

002018 




ft 


PTTY 

- 1MEANS ODD PARITY 

002019 




* 



0 

MEANS EVEN PARITY 

002020 




ft 





002021 

O90E 

8F00 

1135 

CPAR 

bAVE 

<SAV1« =Z *EFDO• 


SAVE REGS, 


09C0 

EFOO 







002022 

09C1 

9800 

1 10L 


LOR 

$Rl»<Cb 


LDR $R1 WITH NUMBER TO SHIFT 

002023 

09C3 

8801 



DEL 

s$Rl 



002024 

09C4 

8755 



ll 

= $R5 



002025 

09C5 

8752 



LL 

s$R2 


CLEAR INDEX 

002026 

09C6 

8257 



NEG 

-$R7 


NEGATE RANGE FOR BRANCH AND INCREMENT 

002027 

09C7 

C2A3 


LPAR2 

LLH 

$R4«$B3.$R2 


LOAD $K4 WITH HALF WORD UF DATA BUFFER 

002028 

09C8 

8980 

1109 


LM2 

<LHSZFG 


SEE IF CHAR. bIZE TEST 

002029 

09CA 

090F 



BE 

>LPAR3 



002030 

09CB 

6C08 



LOV 

$R 6 « = 8 


IF 8 BIT CHAR, DO NOT STRIP 01Tb 

002031 

09CC 

E900 

lioc 


LMR 

$R 6 «<LS 



002032 

09CE 

0906 



BE 

>CPAR3 



002033 

09CF 

8806 



del 

*$R 6 


IF 7 OK 6 BIT CHAR, STRIF FOR PARITY TO 

002034 

0900 

E900 

HOC 


LMR 

$R 6 »<CS 



002035 

0902 

0904 



BE 

>CPAR4 



002036 

0903 

E870 

001F 


LOR 

$R 6 » sX• 1 F• 


MASK. TO STRIP WITH 6 BIT CHAR, 

002037 

0905 

OF 8 3 



B 

>LPAR5 



002038 

0906 

E870 

003F 

LPAR4 

LOR 

$R6tsX»3F* 


MASK. TO STRIP WITH 7 BIT CHAR, 

002039 

0908 

C556 


LPAR5 

AND 

$R4,=$R6 


STRIP BIT TO vHAR SIZE MINUS PARITY BIT 

002040 

0909 

CF56 


CPAR3 

bTR 

$R4*«$R6 


SAVE CHAR IN *R 6 

P02041 




•» 





002042 




* 


CALCULATE PARITY FOR THE CHAR. 

002043 




* 





002044 

090A 

50C4 



DOR 

$R5 *4 



002045 

090b 

LFOO 

1125 


bTR 

$R4»<TLOC 



002046 

0900 

8754 



CL 

= $R4 



002047 

09DE 

5084 



OOL 

$R5,4 



002048 

09DF 

C600 

1125 


XOR 

$R4,<TL0L 



002049 

09E1 

50C2 



DOR 

$R5.2 



002050 

09E2 

LFOO 

1125 


bTR 

$R4,«TL0C 



002051 

09E4 

8754 



LL 

= $R4 



002052 

09E5 

5082 



DOL 

$R5t2 



002053 

09E6 

C600 

1125 


XOR 

$R4,<TL0C 



002054 

09E8 

4041 



bOR 

$R4,1 



002055 

09E9 

0682 



BLF 

>CPAR1 



002056 

09EA 

8A04 



INC 

s$R4 



002057 

09Eb 

C 600 

1 1 IE 

LPAR1 

XOR 

$R4 , <PTTY 



002058 




* 





002059 

09E0 

4000 



bOL 

$R4 »0 


SHIFT PARITY oIT To POSHION 

002060 

09EE 

E454 



OR 

$K6»=$R4 


PUT PAR I 1Y BIT INTO DATA 

002061 

09EF 

E7E0 



bTH 

$R 6 »$BI,*$R2 


STORE 1N10 DA)A SHOULD bE 

002062 

09F0 

7780 

09C7 


BINC 

$R 7»<CPAR2 


do nex \ Character 

002063 

09F2 

8F80 

1135 


RbTR 

<SAV1**Z«EFD0» 


RESTORt KEG. 


09F4 

EFOO 







002064 

09F5 

8384 



JMP 

$64 


jump out of parity formation sub-routine 

002065 




4 





002066 







:::: 


002067 




* 





002068 




* 


bET TEbT MODE ON FIRbT 

LINE OF LLA 

002069 




* 





002070 




* 


LNJ $B4 »<5TMD 

002071 




# 





002072 

09F6 

8F00 

1145 

STMD 

bAVE 

<bAv2 »= Z•DF 8 C • 


SAVE REGS, 


09F8 

0F8C 







002073 

09F9 

3EFE 



ADV 

$R3 ♦ = -2 


SET $R3 TO RECV. CHAN. ON FIRST LINE 

002074 

09FA 

CB 8 Q 

OBEt 


LAB 

$64 » <LHLP 


LOAD $64 WITH ADDRESS OF CHANNEL PROG. 

002075 

002076 

09FC 

0F8E 



B 

>bTM02 



002077 




# 





002078 




# 


bET current loop adapter for fastest speed 

002079 




# 





002080 

09F0 

8F00 

1145 

SLLS 

bAVE 

<5AV2 » =Z•DF 8 C ♦ 


SAVE RtGS, 


09FF 

0 F 8 C 







002081 

0A00 

C800 

10FL 


LDR 

$R4,<F0CC 



002082 

0A02 

C380 

0B7E 


LNJ 

$B4,<CGSCH 



002083 

0A04 

8000 

117F 

SLLSl 

10 

<BIJ0.=$R4 


CHANNEL INITIALIZE 


0A06 

0054 







002084 

0A07 

07FD 



61 OF 

>bCLbl 



002085 

0A08 

CB80 

OBF 3 


LAB 

$64,<CHLPb 


LOAD $64 WITH ADDRESS OF CHANNEL PROG. 

002086 

OAOA 

CF80 

0A19 

STMD2 

bTb 

$64,<STMD3+4+$AF 


STORE ADDRESS FOR ZV$MLW 

002087 

OAOC 

C800 

1102 


LDR 

$R4,<FINS 


LOAD AN I/O TO GET CHANNEL FOR ZV$MLW 

002088 

OAOE 

L380 

0B7E 


LNJ 

$B4,<CGSCH 



002089 

0A10 

L570 

FFLO 


AND 

$R4,sZ'FFCG» 


STRIP OFF DIRECTION BIT AND FUN CODE 

002090 

OA 12 

LFOO 

110A 


bTR 

$R4,<LHNZ 


STORE CHANNEL FOR CALL 






TITLE DCMC2. 


REV A» 


CLA TEST (SAF) 
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002091 

002092 


002093 

002094 

002095 

002096 

002097 

002098 

002099 

002100 

002101 

002102 

002103 

002104 

002105 
002106 
002107 
O02108 
002109 
002110 
002 111 

002112 
002113 
002114 
002115 
002116 
002117 
002118 
002119 
002120 
002121 
002122 
002123 
002124 
002125 
002126 
002127 
002128 
002129 
002130 
002131 

002132 

002133 

002134 

002135 

002136 

002137 

002138 

002139 

002140 

002141 

002142 

002143 

002144 

002145 

002146 

002147 

002148 

002149 

002150 

002151 

002152 

002153 

002154 

002155 

002156 

002157 

002158 

002159 

002160 

002161 

002162 

002163 

002164 

002165 

002166 

002167 

002168 

002169 

002170 

002171 

002172 

002173 

002174 

002175 

002176 

002177 

002178 

002179 

002180 

002181 

002182 





# 

STMD3 

CALL 

ZV$MLW*S»WCP*HX2Q0» 

CHNZ 

0A14 

FBCQ 

0003 





0A16 

0380 

0000 

X 




0A18 

0 F8Q 






0A19 

0A14 






0A1A 

1203 






0A1B 

1250 






OAIC 

110A 






OA10 

0380 

0B24 


LNJ 

SB5»<SETLCT 

SENO OUT LCT 

0A1F 

1283 



OC 

<LCT 


0A20 

8757 



CL 

= $R f 

CLEAR FOR SHORT OE|_AY OF 30 MS. 

0A21 

C800 

10 FC 


LOR 

SR4,<FQCC 

FORM CONIROL WORD 

0A23 

C380 

0B7E 


LNJ 

SB4»<C6SCH 

FOR 

OA25 

8000 

1180 


10 

<BITU*$R4 

START 1/0 

0A27 

0054 






0A28 

0700 

0A2C 


BIOT 

<STMP1 


0A2A 

F380 

0BA3 


LNJ 

SB7 *<ERROR 

ERROR? 1/0 WAS NAfc'EP 

0A2C 

0380 

0B4C 

STMD1 

LNJ 

SB5 ♦ < T OLAY 

TIME OtLAY 

0A2E 

8F80 

1145 


RSTR 

<SAV2«=Z»PF8C» 

RESTORE KEGS. 

0A30 

0 F8C 






0A31 

8384 


* 

JMP 

SB4 





* 

# 

CONVERT RTC TICKS TO MILSEC. 

0A32 

8F00 

1135 

TKSEC 

SAVE 

<SAVl*=Z»D380» 

SAVE REGS. 

0A34 

0380 






0A35 

CF51 



SIR 

SR4t «$R 1 

DUPLICATE VALuE IN $R1 

0A36 

cboo 

1110 


MOL 

SR4,<DIV1 


0A38 

CFOO 

1125 


STR 

$R4*<TLQC 


0A3A 

C851 



LOR 

SR4 * e$R1 


0A3B 

CBOO 

1111 


MOL 

$R4 *<01V2 


0A30 

C370 

OOOA 


01V 

$R4 10 


0A3F 

CAOO 

1125 


AOO 

SR4»<TL0C 


0A41 

CFOO 

1125 


STR 

$R4♦<]LOC 


0A43 

C851 



LOR 

$R4**SRl 


0A44 

CBOO 

1112 


MUL 

$R4*<0IV3 


0A46 

C370 

0064 


oiv 

SR4,slOO 


0A48 

CAOO 

1125 


AOO 

SR4♦<TLOC 


0A4A 

CFOO 

1125 


STR 

SR4,<TL0C 


0A4C 

C851 



LOR 

$R4 » s$R1 


0A4P 

CBOO 

1113 


MOL 

$R4 »<D1V4 


0A4F 

C370 

03E8 


oiv 

$R41 s1000 


0A51 

CAOO 

1125 


AOO 

SR4»<TLOC 


0A53 

8F80 

1135 


RSTR 

<5AVU*Z'0380» 


OA55 

0360 






0A56 

8385 



JMP 

SB5 





*5==== 

= = = « = = 






* 

CONVERT MS TO BITS/SEC 

(GIVEN CHAR. SUE 6 NUMBER) 

0A57 

8 FOO 

1135 

BPS 

SAVE 

<SAVi*sZ»OF80» 

SAVE REGS. 

OA19 

PF80 






0A5A 

8756 



CL 

sSR6 

CLEAR SR6 FUR DIVIDE 

0A5b 

9826 



LOR 

SR 1«$B6 * SK2 

LOAD SKI WITH NUMBER OF CHAR. 

0A5C 

9970 

OFOO 


CMR 

SRI♦*3840 


0A5E 

0983 



BNE 

>BPS1 


0A5F 

1EQ7 



AOV 

SR1 * * 7 


0A60 

9255 



SOB 

SRI*=SR5 


0A61 

F870 

03E8 

BPS! 

LOR 

SR7 *5 1000 

CONVERSIUN FACTOR FOR MS TOC. 

0A63 

FBOO 

1100 


MOL 

SR 7»<CSB 

multiply by character size 

0A65 

F354 



OIV 

SR7»=$R4 

DIVIDE BY ACTUAL TIME IN MS 

0A66 

8000 

1126 


SOI 

<TPi 

STORE DOUBLE INTEGER 

0A68 

8756 



CL 

= $R6 


0A69 

F800 

1127 


LOR 

SR7 » <TP2 


0A6B 

FB51 



MOL 

SR7»sSRl 


0A6C 

8207 



LB 

s SR7 » =Z 1 8000♦ 


0A6D 

8000 






0A6E 

0502 



BBT 

>BPS2A 


0A6F 

6903 



BEZ 

SR6 »>BPS2 


0A70 

8A80 

1117 

BPS2A 

INC 

<HGSPO 


OA72 

8000 

11 IB 

BPS2 

SOI 

<MSBS 


0A74 

8030 

11E2 


SOI 

<SYLSPO•SR3 


0A76 

F800 

1126 


LOR 

$R7.<TP1 


0A78 

7F0A 



MLV 

SR7 »s10 


0A79 

F354 



OIV 

$R7*=SR4 


0A7A 

FF55 



STR 

SR7,sSR5 


0A7B 

DB51 



MOL 

SR5»= SR1 


0A7C 

0370 

OOOA 


OIV 

SRS.slQ 


0A7E 

DAOO 

UK 


AOO 

SR5»<MSBS +1 


OA80 

7000 



OOR 

SR7 * 16 


0A81 

7F0A 



MLV 

$R7t = 10 


0A82 

F354 



OIV 

$R7»sSR4 


0A83 

FB51 



MUL 

SR7 »= SK1 


0A84 

F370 

0064 


oiv 

SR7.S100 


0A86 

FA55 



AOO 

$R7♦=SR5 


0A87 

FFOO 

U1C 


STR 

SR7 »<MSBS+1 


0A89 

8F80 

1135 


RSTR 

<SAVl*sZ'0F80* 


QA86 

0F80 






0A8C 

8385 


* 

JMP 

SB5 





ft::::: 

SS3S3S? 


S3333333:5:;33S333SS:;:s53Ss:::3; 







# 


PRINT LINE SPEED 



0A80 

8 FOO 

1145 

PRTLSP 

SAVE 

<SAV2.sZ'B88F» 

SAVE 1 

REGS. 

0A8F 

B88F 







QA90 

3041 



SOR 

SR3»1 

SHIFT 

SR3 TO REPRESENT LINE NUMBER 

QA91 

BFOO 

1125 


STR 

$R3»<TL0C 

STORE 

LINE NUMBER FOR ZVSTD 





CALL 

ZVSTC,MESG2»BYTP 

PRINT 

LINE TYPE 

0A93 

FBCO 

0003 






0A95 

0380 

0000 

X 


• 



0A97 

0F80 







0A98 

1313 







0A99 

1107 











CALL 

ZVSTO.TLOC 

PRINT 

LINE NUMBER 



002183 





TITLE DCMC2* 'REV A* CLA TEST (SAF) PAGE 23 



0A9A 

FBCO 

0003 







0A9L 

0380 

0000 

X 






0A9E 

OF 80 








0A9F 

1125 







002184 






CALL 

ZV$T*MESG4 

PRINT * SPEED* 


OAAO 

FBCO 

0003 







0AA2 

0380 

0000 

X 






0AA4 

0F80 








0AA5 

13 1C 







002185 

0AA6 

0380 

0A32 



LNJ 

$05♦<I K.SEC 

CONVERT NUMBER OF TICK IN $R4 TO MS 

002186 





# 




002187 

OAAO 

0380 

0A57 



LNJ 

$05♦<BPS 

USE $R4 10 CALCULATE BlTS/SEC 

002188 

OAAA 

8980 

1117 



CMZ 

<HGSPD 

CHECK FOR HIGH SPEED LINE 

002189 

OAAC 

0919 




BE 

>PRLT3 


002190 

OAAD 

8C80 

11 IB 



LDI 

<MSbS 

LOAD DOUBLE INTERGER INTO $R6,$R7 

002191 

OAAF 

F370 

03E8 



U1V 

$R7 *-1000 

FIND NUMBER OF KB 

002192 

QAB1 

FFOO 

U1B 



STR 

$R7 *<MSBS 


002193 

0AB3 

6064 




CMV 

$R6 »s100 


002194 

0AB4 

0A02 




BAG 

>PRL15 


002195 

0AB5 

6C64 




LUV 

$R6»s100 


002196 

0A&6 

EFOO 

1 11C 


PRLT5 

STR 

$R6*<MSBS*1 


002197 






CALL 

ZV$TD»MSBS*BKLS 

PRINT NUMBER OF KB 


OA08 

FBCO 

0003 







OABA 

0380 

0000 

X 






OABC 

0F80 








OABD 

1110 








OABE 

1190 







002198 






CALL 

ZV$T »COMMA 



OABF 

FBCO 

0003 







OACl 

0380 

0000 

X 






0AC3 

OF 80 








0AC4 

119C 







002199 





PRLT3 

CALL 

ZV$TD*MSBS*1*BKLS 

PRINT LINE SPtED 


0AC5 

FBCO 

0003 







0AC7 

0380 

0000 

X 






0AC9 

OF 80 








OACA 

me 








OACB 

119D 







002200 

OACC 

8980 

129C 



CMZ 

<LC3SYF 

IF SYNC. LINE ALL DONE 

002201 

OACE 

0999 




BNE 

>PRLT1 

IF ASYNC. PRINT SHOULD BE 

002202 

OACF 

EB80 

1212 



LAB 

$B6 *<ALSPBL 

LOAD ADDRESS uF 'SHOULD BE* SPEED TABLE 

002203 

0AD1 

C870 

2108 



LDR 

$R4*=X»2108« 

IF NEW LINE SPEED CHANCE $B6 TO POINT TO TABL 

002204 

0AD3 

C908 

0320 



CMR 

$R4»*<ST1 


002205 

0AD5 

0903 




BE 

>PRLT7 


002206 

0A06 

EB80 

1221 



LAB 

$B6»<CMSPBL 


002207 





PRLT7 

CALL 

ZVST *MESG5 

PRINT 'SHOULD BE* 


0AD8 

FBCO 

0003 







OADA 

0380 

0000 

X 






OADC 

0F80 








OAOD 

1322 







002208 

OADt 

B826 




LDR 

$R3,*B6.$R2 

LOAD $K3 WITH LINE SPEED 

002209 

OADF 

BFOO 

1125 



STR 

$R3 *<TLOC 


002210 






CALL 

ZVSTD.TLOC 



0AE1 

FBCO 

0003 







0AE3 

0380 

0000 

X 






0AE5 

0F80 








0AE6 

1125 







002211 

0AE7 

9800 

me 


PRLT1 

LDR 

$R1»<MSBS +1 

STORE AWAY LINE SPEED (SYNC) 

002212 

0AE9 

9F00 

1118 



STR 

$R1»<HISPD 


002213 

OAEB 

8.700. iue 



CL 

<M5BS. 


002214 

OAED 

8700 

me 



CL 

<MSBS*1 


002215 

OAEF 

8F80 

1145 



RSTR 

<SAV2.=Z'B88F» 

RESTORt R 


OAF 1 

B88F 







002216 

0AF2 

8384 




JMP 

$04 


002217 





* 




002218 






S9999S 


=S=============5=== = = == ================= 

002219 





* 




002220 





* GENERAL INITIALIZE FOR DLCC 


002221 





# 




002222 

0AF3 

8F00 

1145 


GENITZ 

SAVE 

<SAV2*=Z'1118* 

SAVE B/*$R7 


0AF5 

1118 







002223 

0AF6 

7C1A 




LDV 

$R7»=26 

ALLOW 800 MS DELAY 

002224 

0AF7 

C800 

10FA 



LDR 

$R4»<F0MC 

GET FUNCTION CODE FOR INITIALIZE 

002225 

0AF9 

C380 

0B7E 



LNJ 

$B4,<CGSCH 

MODIFY FUR CHANNEL 

002226 

OAFB 

8000 

117F 



10 

<BIT0,s$R4 

INITIALIZE 


OAFO 

0054 







002227 

OAFE 

0703 




BIOT 

>N2 


002228 

OAFF 

F380 

0BA3 



LNJ 

$07 *<ERROR 

INITIALIZE WAb NAK»eD 

002229 

OBOi 

0380 

0B4C 


N2 

LNJ 

$B5 »<TDLAY 

WAIT 30 MS 

002230 

0B03 

8F80 

1145 



RSTR 

<SAV2*«Z'1118* 



0005 

1118 







002231 

0B06 

8384 




JMP 

$B4 

RETURN 

002232 

002233 





* 




002234 





# 




002235 





# 


OUTPUT CHANNEL CONTROL 


002236 





* 




002237 





* 


$R2 - CONTAINS CHANNEL CONTROL TYPE 

002238 





# 




002239 

0B07 

8F00 

1135 


5TCR 

SAVE 

<SAV1 * = Z'0008• 

SAVE REG* 


0B09 

0008 







002240 

OBOA 

0852 




LDR 

$R5»s$R2 


002241 

OBOB 

C800 

10FC 



LDR 

$R4,<F0CC 

LOAD FUNCTION CODE FOR CHANNEL CONTROL 

002242 

Q0QD 

OF 8C 




B 

>N1 A 


002243 





#===== 

=== = = = 



002244 





# 




002245 





* INPUT NEXT 

STATUS TO R5 


002246 





# 




002247 

OBOE 

8F00 

1135 


1NXT 

SAVE 

<SAV1 * «Z * 0008• 

B4 


0B1Q 

0008 







002248 

0611 

C800 

1102 



LDR 

$R4 »<FINS 

GET CONTROL WORD For INPUT NEXT STATUS 

002249 

On? ? Kf) 

0B13 

0F86 




B 

>N1A 


VV*. 6 30 

002251 





* 




002252 





* 

INPUT RANGE 


002253 





# 




002254 





# 


$K5 - RESULT OF RANGE 

INPUTED 

002255 





# 




002256 

0B14 

8F00 

1135 


INRG 

SAVE 

<SAV1*5Z»0008* 

SAVE REG* 


0B16 

0006 







002257 

0B17 

C800 

1100 



LDR 

$R4f <F IR 

LOAD $K4 WITH FUNCTION CODE FOR INPUT RANGE 

002258 

0019 

C380 

0B7E 


N1A 

LNJ 

$B4♦<CGSCH 

MODIFY FOR CHANNEL 

002259 

0B1B 

8055 




10 

= $R5 * =$R4 







TITLE DCMC2« »REV A» 


CLA TEST (SAF) 


PAGE 24 


0Q226Q 

002261 

002262 

002263 

002264 

002265 

002266 

002267 

002266 

002269 

002270 

002271 

002272 

002273 

002274 

002275 

002276 

002277 

002278 

002279 

002280 

002281 

002282 

002283 

002284 

002285 

002286 

002287 

002288 

002289 

002290 

002291 

002292 

002293 

002294 

002295 

002296 

002297 

002298 

002299 

002300 

002301 

002302 

002303 

002304 

002305 

002306 

002307 

002308 

002309 

002310 

002311 

002312 

00*313 

002314 

002315 

002316 

002317 

002318 

002319 

002320 

002321 

002322 

002323 

002324 

002325 

002326 

002327 

002328 

002329 

002330 

002331 

002332 

002333 

002334 

002335 

002336 

002337 

002338 

002339 

002340 

002341 

002342 

002343 

002344 

002345 

002346 

002347 

002348 

002349 

002350 

002351 

002352 


002353 

002354 


0B1C 0054 


OB 10 

0703 




BIOT 

>N1 


0B1E 

F380 

0BA3 



LNJ 

$B7 *<ERRQR 

ERROE; I/O wAS Nak»EO 

0B20 

8F80 

1135 


N1 

RSTR 

<SAVl.sZ*0008» 


0622 

0008 







0B23 

8384 



8 

JMP 

$64 






8 

8 SET 

UP LCT 

FOR CHANNEL SPECIFIED 

IN R3 





* 


LNJ $65*<SETLCT 






8 


DC TABLE 


0B24 

8F00 

1135 


SETLCT 

SAVE 

<SAV1*»Z*E8E0» 

Rl*R2*K4.82,Bi 

0626 

E8E0 







0627 

9CF5 




LD6 

$B1t + $85 

GET ADDRESS OF TABLE 

0 B28 

8751 




CL 

= $R1 


0B29 

A811 



LCT4A 

LOR 

$R2*$B1.$R1 

get byte to output 

0B2A 

8AD1 




INC 

= $R1 


0 B2B 

2985 




BNEZ 

$R2 *>LCT5A 

BRANCH IF NOT AT END OF TABLE 

0 B2C 

8F80 

1135 



KSTR 

<SAV1«=Z*E8E0» 


0B2E 

E8E0 







062F 

8385 




JMP 

$B5 

RETURN 

0630 

C800 

10FE 


LCT5A 

LOR 

$R4,<F0BL 

FUNCTION CODE FQROut LCT BYTE 

0B32 

C380 

0B7E 



LNJ 

$B4,<CGSCH 

FORM 10 CONTROL WORD 

0634 

8052 



LCT3A 

10 

s$R2**$K4 

OUTPUT BYTE 

0B35 

0054 







0636 

07FE 




BIOF 

>LCT3A 

CHECK IF TAKEN 

0637 

0FF2 



# 

6 

>LCT4A 

GET NEXT BYTE 





8 

# 

F1N0 FIRST ACTIVE LINE 






8 


$R3-START CHEU ON THIS LINE AND 





8 


CYCLE THROUGH ALL 

LINES IF 





8 


ONE FOUNO ON LINE 

NUMBER IS HERE 





8 


LNJ $B5 *<FLN 






8 


DC OF LINE TYPE 

TO search FOR 





8 


<RETURN> IF NO LINES 

ON 





8 


<RETURN> 


0638 

8F00 

1135 


FLN 

SAVE 

<SAV11 *Z•AOEO• 

SAVE REG* $R2«$62«$b1 

063A 

AOEO 







063b 

3041 




SOR 

$R3«1 


0B3C 

9CF5 




LOB 

$61»+ $65 


0630 

A801 




LOR 

$R2 »$B1 

PUT LINE TYPE INTO $R2 

0B3E 

AB80 

1186 



LAB 

$62»<ATLT 

ADDRESS OF ACTIVE LINE TABLE 

0B40 

3008 



FLN2 

CMV 

$R3 • *8 

SEE IF Af BOTTOM OF TABLE 

0641 

0287 




BGE 

>FLN3 


0642 

A97E 




CMR 

$R2*$B2.+$R3 

SEE IF INDEX LINE ON 

0643 

09FD 




BNE 

>FLN2 


0644 

8803 




OEC 

= $R3 

SET $R3 BACK TO VALUE FOUND 

0645 

3001 




SOL 

$R3 »1 


0646 

DBC5 

0001 



LAB 

$65 *$B5»1 

INCREMENT TO VALID RETURN 

0648 

. 8.L8L0 

1135 


FL.N3 

RSI 8 

<SAVl*.*Z*AO.EOi 

RESTORE REt, 

0B4A 

AOEO 







0B46 

8385 



8 

JMP 

$65 

jump out of routine 





8 

8 


TIME DELAY 






8 


LNJ $65»<TOLAY 


0B4C 

8 F00 

1135 


TDLAY 

SAVE 

<SAVit=Z'C180» 

SAVE REG. $R1»$R7 

0B4E 

Cl 80 







0B4F 

1C09 



TDLA 

LOV 

$Ri .*9 

LOAD CLOCK INITIAL COUNT 

0650 

9F00 

0000 

X 


STR 

$R1 * <ZHRTCC 


0652 

1C05 




LOV 

$R1*«5 


0653 

0004 




RTCN 


TURN ON REAL TIME CLOCK 

0654 

9900 

0000 

X 

TDLA1 

CMR 

$RU<ZHRTCC 


0656 

0882 




BAGE 

>TDLA3 


0657 

OFFD 




6 

>T0LA1 


0658 

0005 



TDLA3 

RTCF 


TURN OFF REAL TIME CLOCK 

0659 

7776 




BOEC 

$K7 *>TOLA 


0B5A 

8F80 

1135 



RSTR 

<SAVl**Z * Cl 80 1 

RESTORE $R1 

0B5C 

C180 







0650 

8385 



8 

8 S S S K S 

JMP 

$65 





. 

8 

8 

ft 


READ LCT 






8 


LNJ $66» <RDLCT 






8 


DC <ADDRESS> 






8 


DC <RANGE IN BYTES> 


QB5E 

8F00 

1135 


RDLCT 

SAVE 

<SAV11 sZ•C88C• 

SAVE REGS, 

0660 

C88C 







0661 

C800 

1100 



LOR 

$R4,<FIR 

LOAD DUMMY I/O 

0663 

C380 

0B7E 



LNJ 

$B4,<CGSCH 

PUT PROPtR CHANNEL IN 

0665 

C570 

FF80 



AND 

$R4,sZ'FF80» 


0667 

CFOO 

110A 



STR 

$R4» <CHNZ 

STORE CHANNEL NUMBER FOR CALL 

0669 

C806 




LOR 

$R4 * $66 

STORE ADDRESS IN Zv$MLR CALL 

066A 

CFOO 

1122 



STR 

$R4,<RLCTA0 


066C 

C846 

0001 



LOR 

$R4f$66#1 

STORE RANGE FuR ZV$MLR 

0 b6t 

CFOO 

1123 



STR 

$R4,<RLCTRG 







CALL 

zv$mlr»lctv»rlctrg.rlctao*chnz 

0670 

FBCQ 

0003 






0672 

0380 

0000 

X 





0B74 

OF 80 







0675 

112E 







0676 

1123 







0677 

1122 







0678 

UOA 







0679 

8F80 

1135 



KSTR 

<SAV1»=Z'C88C» 


0676 

C88C 







0B7C 

83C6 

0002 



JMP 

$66,2 



/Os 









TITLE DCMC2« »REV A» 


CLA TEST (SAF) 
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002355 

002356 

002357 

002356 

002359 

002360 

002361 

002362 


CHANGE SUBCHANNEL 

$R3 -CONTAINS SUBCHANNEL WANTED 

$R4 -CONTAINS I/O CONTROL WORD TO Bt CHANGfcD 


002363 




* 

LNJ 

$B4»<CGSCH 


002364 




# 




002365 




ft 




002366 

0B7E 

3006 


CGSCH 

SUL 

$R3 ♦ 6 

SHIFT 10 SUBCHANNEL POSITION 

002367 

0B7F 

C453 



OR 

$R4*=$R3 

OR SUBCHANNEL NUMBER INTO CONTROL WORD 

002366 

0B80 

3046 



SOR 

$R3 »6 

SHIFT 10 NORMAL POSITION 

002369 

0B81 

8384 



JMP 

$B4 

GO BACK 

002370 




ft 




002371 




*===r= 

::ssxs 

:sst:se:;::ss;::s 

ii 

it 

n 

ii 

ii 

ii 

ii 

ii 

u 

ii 

it 

it 

ii 

ii 

ii 

ii 

it 

ii 

u 

ii 

H 

II 

II 

It 

Ii 

W 

It 

II 

u 

It 

II 

II 

II 

II 

II 

II 

002372 




ft 




002373 




ft 

CCB 

FORMAT ION. 


002374 




* 




002375 




4 

$R3 

- CONTAINS SUBCHANNEL WANTED 

002376 




ft 

$R4 

- CONTAINS RANGE 

(NUMBER OF BYTES) 

002377 




ft 




002376 




ft 

LNJ 

$B5 *<MCCB 


002379 




ft 

DC 

CPU ADDRESS 


002380 




ft 

DC 

RAM ADDRESS 

NUMBER OK CHANNEL CONTROL WORD. 

002381 




ft 




002382 

0B62 

8F00 

1135 

MCCB 

SAVE 

<SAV1.=2»FDF8* 

SAVES SBi*$B3t$B2.$B4.SR7.SR5.SR4,R2*6 


0B84 

FDF 8 






002383 

0B85 

7C7E 



LDV 

$R7*sl26 


002384 

0B66 

ACF5 



LDB 

$B2 » + $B5 

LOAD $B2 WITH CPU ADDRESS 

002385 

0B87 

A805 



LDR 

$R2t$B5 

PUT RAM ADDRESS IN jR2 

00238-6 

0B88 

D854 



LDR 

$R5*=$R4 


002387 

0B89 

C800 

10FD 


LDR 

$R4 *<FQLD 

LOAD $K4 WITH I/O CONTROL WORD 

002386 

0B8B 

C380 

0B7E 


LNJ 

$B4,<CGSCH 


002389 

0B8D 

7900 

0B9C 

MCB5 

BE 2 

$R7,<MCER 


002390 

0B8F 

8182 



1QLD 

$B2 »s$R4 *s$R5 

OUTPUT ADDRESS AND RANGE 


0B90 

0054 







0B91 

0055 






002391 

0B92 

88D7 



DEC 

= SR7 


002392 

0B93 

07FA 



BIOF 

>MCB5 


002393 

0B94 

C800 

10FF 


LDR 

$R4 * <FOCB 

LOAD $R4 WITH I/O CONTROL WORD 

002394 

0B96 

C380 

0B7E 


LNJ 

$B4 « <CGSCH 

PUT I/O CONTROL WORD IN $R4 

002395 

0B98 

8052 


MCB2 

10 

sSR2»s$R4 

OUTPUT DLCC RAM ADDRESS 


0B99 

0054 






002396 

0B9A 

07FE 



BIOF 

>MCB2 


002397 

0B9B 

OF83 



B 

>MCB6 


002398 

0B9C 

P38Q 

0BA3 

MCER 

LNJ 

$B7 *<ERROR 

IOLD HAS BEEN NAK»ED 

002399 

0B9E 

8F80 

1135 

MCB6 

RSTR 

<SAV1.=2'FDF8» 

RESTORt REGS. 


OBAO 

FDF8 






002400 

0BA1 

83C5 

0001 


JMP 

SB5.1 



002401 

002402 

002403 

002404 

002405 

002406 


ft 

* ERROR PRINT ROUTINE 


002407 

0BA3 

8F00 

1165 


ERROR 

SAVE 

<SAV4 * =2 * FFFF* 

SAVE RtGlSTERs 


0BA5 

FFFF 







902405 

0BA.6 

8800 

136* 



LfiF 

< ERMG ♦ lr» X* FE? . 



0BA8 

OQFF 







002409 

0BA9 

3041 




SOR 

$R3»1 

SHIFT TO GET LINE NUMBER 

002410 

OBAA 

3E30 




ADV 

$R3 »sX * 30' 

CHANGE NUMBER INTO ASCII 

002411 

OBAB 

B400 

1364 



OR 

$R3 »<ERMG+1 


002412 

OBAD 

BFOO 

1364 



STR 

$R3»<EKMG*1 

STORE LINE NUMBER 

002413 

OBAF 

1 CF0 




LDV 

SRI*5*16 

INTIALIZt LOOP COUNTER 

002414 

OBBO 

6753 




CL 

*$R3 

CLEAR INDEX 

002415 

0BB1 

EBC7 

FFFE 



LAB 

$66»SB7.-l-SAF 

DECREMENT $B7 

002416 

0BB3 

EF80 

OBBA 



STB 

$B6»<tRRl+4+SAF 

STORE ERROR ADDRESS FQR tRRl 

002417 

0BB5 

FBCO 

0003 


ERR1 

CALL 

2VSER.JtERMG 



0BB7 

D380 

0000 

X 






0BB9 

0F80 








OBBA 

0BB5 








OBBB 

1363 







002416 

OBBC 

EB80 

119B 



LAB 

$B6 »<CRLF 

PUT CR-L INTO CALL 

002419 

OBBE 

CB80 

1245 



LAB 

$B4t<SPACE 


002420 

OBCO 

AB80 

0BD2 • 



LAB 

SB2»<ERR3t4*2»SAF 


002427 

0BC2 

EF82 



ERU 

STB 

$B6 *$B2 


002428 

0BC3 

8960 

1114 



CM2 

<ERF 

CHECK FLAG FOR SHORT REPORT 

002429 

0BC5 

0900 

OBDD 



BE 

<ERR5 


002430 

0BC7 

BBBO 

1165 


ERR2 

LAB 

$B3t<SAV4,SR3 

FECTH AND STORE REGISTER 

002431 

0BC9 

9B80 

OBDl 



LAB 

$B1.<ERR3+44$AF 


002437 

OBCB 

BF81 



ERR21 

STB 

SB3 *$B1 


002445 

OBCC 

FBCO 

0003 


ERR3 

CALL 

2V$TH2»5 



OBCE 

D380 

0000 

X 






OBDO 

OBDl 

0BD2 


0F80 

OBCC 

OBCC 


002450 

0BD3 

8AD3 



ERR34 

INC 

«SR3 

BUMP INDEX 

002451 

0BD4 

CF82 




STB 

SB4»$B2 


002452 

0BD5 

3008 




CMV 

$R3 *s7*JAF+1 

SEE IF CR-LF NEEDED 

002453 

0BD6 

0984 




BNE 

>ERR4 


002454 

0BD7 

EB80 

119B 



LAB 

$B6 *<CRLF 


002455 

0BD9 

EF82 




STB 

SB6.SB2 

PUT CR-LF INTO CALL 

002456 

OBDA 

1780 

0BC7 


ERR4 

BINC 

SR1*<ERR2 

DO NEXT REGISTER 

002457 

OBDC 

0000 




HLT 


HALT AFTtR ERROR 

002458 

OBDD 

8F80 

1165 


ERR5 

RSTR 

<SAV4*=2»FFFFf 

RESTORE REGISTERS 


OBDF 

FFFF 







002459 

OBEO 

8387 




JMP 

$67 

RETURN 

002469 





SAFF 

NULL 



002470 





ft 




002471 





ft=5=== 

;t:ssx::s;:s;st;:s;ttE;::ss; 

sS3X«;ssat«sss;ses;xi 

002472 





ft 




002473 





ft 


END OF PASS CHECK 


002474 





ft 




002475 

0BE1 

8700 

OOFF 


EDPCK 

CL 

<STOP 


002476 

0BE3 

8980 

0000 

X 


CM2 

<2V$TTY 


002477 

0BE5 

0900 

OOFF 



BE 

<STOP 


002478 

0BE7 

FBCO 

0003 



CALL 

2VSTC.ME5G8 



QBE9 

D380 

0000 

X 













TITLE DCMC2* 

♦REV A* 

CLA TEST (SAF) 



PAGE 26 


OBEB 

0F80 






OBEC 

1333 





002479 

OBED 

8382 


J HP 

$B2 


002480 



4 




002481 



4 

-VC-VH~VA-VN-VN-VE-VL - 

VP-VR-VQ-VG-VR-VA-VM-VS 

002482 



4 




002483 



4 




002484 



4 




002485 



* 




002486 



4 

SET 

TEST MODE ON CLA FOR 

SECOND LINE OF CLA 

002487 



4 




002488 



4 

QRG 

X* 200* 


002489 


OBEE 

CHLP 

EOU 

s 


002490 



4 

LO 

20 


002493 

OBEE 

0614 





002494 



4 

OUT 

2 


002495 

OBEF 

B030 





002498 



4 

WAIT 



002499 

obfo 

28BD 





002500 

0BF1 

3100 





002501 



4 

NOP 



002502 



4 




002503 



4 




002504 



4 

SET 

CURRENT LOOP ADAPTER 

TO EASIEST SPEED 

002505 



4 




002506 



* 

OR 6 

X»200* 


002507 

0BF2 

0100 





002508 


0BF3 

CHIPS 

EQU 

$ 


002509 



* 

LD 

*X»F* 


002512 

0BF3 

C60F 





002513 



■#. 

OUT 

4 


002514 

0BF4 

B030 





002517 



* 

WAIT 



002518 

0BF5 

30BD 





002519 

0BF6 

3100 





002520 



4 

NOP 



002521 



4 




002522 



4 




002523 



4 


CHANNEL PROGRAM 

FOR LOOP AT LINE ADAPT (REC) 

002524 



4 




002525 



4 




002526 



4 

OR 6 

X *200• 


002527 

0BF7 

0100 





002528 


OBFB 

CHLP1 

EOU 

$ 


002529 



* 

LOC 

HLP1 


002530 


0200 

HLP1 

EOU X»0200« 


002531 



4 

LO 

24 

GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 

002534 

0BF8 

0618 





002535 



# 

OUT 

4 

QUTPU1 IT 

002536 

0BF9 

B030 





002539 



4 

RECV 

0 

DUMMY REC. FOR CURRENT LOOP ADAPT 

002540 

OBFA 

30B0 





002543 

obfb 

3060 





002544 



4 

LD 

20 

GET LINE CONTROL 

002547 

OBFC 

0614 





002548 



4 

OUT 

2 

OUTPUT IT 

002549 

obfd 

B030 





002552 



4 

WAIT 



002553 

OBFE 

28B0 





Q02:55-4 

_ _£LB£F 

.13100 





002555 



4 

LO 

28 

eoad sync, flag if zero line is async. 

002558 

ocoo 

P61C 





002559 



4 

B2T 

GETC 


002560 

0C01 

5027 





002563 



4 

LOC 

TRNX 


002564 


0215 

TKNX 

EQU X•0215♦ 


002565 



4 

RECV 

0 

INPUT 1ST SYNC 

002566 

0C02 

3AB0 





002569 

OC03 

3060 





002570 



4 

WAIT 



002571 

0C04 

8031 





002572 



'4 

RECV 

0 

INPUT SECOND SYNC 

002573 

0C05 

OOBO 





002576 

0C06 

3060 





002577 



4 • 

C 

24 


002580 

0C07 

9618 





002581 

0C08 

1097 





002582 



4 

BET 

INSY 


002583 

0C09 

4196 





002584 

OCOA 

4127 





002587 



4 

LD 

20 


002588 

OCOB 

0ED6 





002591 



4 

AND 

s X * F 0 * 


002592 

ococ 

14C4 





002595 



4 

OUT 

2* 


002596 

OCQD 

FPBD 





002599 

OCOE 

3028 





002600 



4 

LD 

20 


002603 

OCOF 

0614 





002604 



4 

OUT 

2 


002605 

ocio 

B030 





002608 



4 

B 

TRNX 


002609 

ocu 

2820 





002612 



4 

LOC 

INSY 


002613 


0235 

INSY 

EOU X»0235* 


002614 



4 

WAIT 



002615 

0C12 

EOBO 





002616 

0C13 

3100 





002617 



4 

RECV 

0 

INPUT FINAL SYNC. 

002618 

0C14 

B030 





002621 



4 

WAIT 



002622 

0C15 

60BD 





002623 

0C16 

3100 





002624 



4 

LOC 

CKST 


002625 


023E 

CKST 

EOU X»023E* 


002626 



4 

RECV 

0 

INPUT FIRST CHAR. 

002627 

0C17 

B030 





002630 



4 

C 

sXtFF* 

SEE IF START OF DATA OR SYNC. 

002631 

0C18 

6086 





002634 

009 

FF1Q 





002635 

0C1A 

9741 





002636 



4 

BET 

GETC1 


002637 

0C1B 

9641 







x_ y 



CLA TEST (SAF) 
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TITLE DCMC2♦ »REV A* 


002640 

0C1C 

270F 




002641 



# 

WAIT 


002642 

0C1D 

BD31 




002643 




B 

CKST 

002644 

0C1E 

0020 




002647 



* 

LOC 

GETC 

002648 


024F 

GETC 

EQU X»024F» 

002649 



* 

RECV 

0 

002650 

0C1F 

EFBD 




002653 

0C20 

3060 




002654 




ST« 

STORE 

002655 

0C21 

BD30 




002656 



* 

BLCT 

HLP1A 

002657 

0C22 

CODE 




002658 

0C23 

6327 




002661 



4 

LOC 

GETC1 

002662 


0259 

GETC1 

EOU X»0259» 

002663 



4 

WAIT 


002664 

0C24 

05BD 




002665 

0C25 

3100 




002666 



4 

B 

GETC 

002669 

0C26 

20F1 




002670 



* 

LOC 

HLP1A 

002671 


025E 

HLP1A 

, EQU X*025E 1 

002672 



* 

BLBT 

GETX 

002673 

0C27 

9665 




002674 

0C28 

8520 




002677 

0C29 

2605 




002678 



# 

GNB 


002679 

0C2A 

BD31 




002680 



* 

B 

GETC 

002681 

0C2B 

2020 




002684 



# 

LOC 

GETX 

002685 


0269 

GETX 

EOU X•0269• 

002686 



# 

LD 

sO 

002687 

0C2C 

E6C6 




002690 



* 

OUT 

2 

002691 

0C2D 

OOBD 




002694 

0C2E 

3028 




002695 



# 

GNB 


002696 

0C2F 

BD31 




002697 



# 

WAIT 


002698 

0C30 

20BD 




002699 

0C31 

3100 




002700 



* 

B 

HLP1 

002703 

0C32 

208A 




002704 



* 

NOP 


002705 



* 



002706 



* 



002707 



# 

channel program FOR LOOP 

002708 



# 



002709 



* 



002710 



# 

ORG 

X * 400 * 

002711 

0C33 

0100 




002712 


0C34 

CHLP1A EOU 

$ 

002713 



* 

LOC 

LP1A 

002714 


0400 

LP1A 

EOU X * 0400 * 

002715 



* 

LD 

2 

002718 

0C34 

D602 




OJ>iIl 9 



* 

OUT 

6 

002720 

OC35 

8D30 




002723 



* 

LD 

sX»AA» 

002724 

0C36 

38C6 




002727 




OUT 

4 

002728 

0C37 

AABD 




002731 

0C38 

3030 




002732 



# 

WAIT 


002733 

0C39 

BD31 




002734 



* 

LD 

28 

002735 

0C3A 

Q0D6 




002738 



# 

BZT 

LP1ABD 

002739 

0C3B 

1C50 




002742 

0C3C 

271F 




002743 



# 

LD 

s6 

002746 

0C3D 

C606 




002747 



* 

LOC 

XMSY 

002748 


0414 

XMSY 

EQU X*0414* 

002749 



* 

ST 

63 

002752 

0C3E 

D73F 




002753 



* 

LD 

24 

002756 

0C3F 

D618 * 




002757 



# 

SEND 

0 

002758 

0C40 

BD30 




002761 



* 

LD 

63 

002762 

0C41 

40D6 




002765 



* 

DEC 


002766 

0C42 

3F5A 




002767 



# 

BZT 

SDSY 

002768 

0C43 

5D27 




002771 



* 

WAIT 


002772 

QC44 

05BD 




002773 

0C45 

3100 




002774 



# 

B 

XMSY 

002777 

0C46 

20EE 




002778 



# 

LOC 

SDSY 

002779 


0426 

SDSY 

EOU X* 0426*. 

002780 



* 

WAIT 


002781 

0C47 

BD31 




002782 



# 

LD 

*X*FF* 

002783 

0C48 

00C6 




002786 



# 

SEND 

0 

002787 

0C49 

FFBD 




002790 

0C4A 

3040 




002791 



# 

WAIT 


002792 

0C48 

BD 31 




002793 



* 

LOC 

LP1ABD 

002794 


0431 

LP1ABD EOU X * 0431• 

002795 



* 

LDt 

GET 

002796 

0C4C 

OOBD 




002797 

0C4D 

30A0 




002798 



# 

SEND 

0 

002799 

0C4E 

BD30 




002802 



* 

BLCT 

LP1AB 


INPUT CHARACTER 
INTO DATA BUFFER 


TURN OFF REC. 


AT LINE ADAPT (XMlj) 


GET UNt CONFIGURATION 

OUTPUT U 

LOAD FILL CHAR. 

OUTPUT SYNC. FILL CHAR* 

LOAD SYNC. FLAG 

IF ZERO BRANCH TO OUTPUT CHAR 


LOAD SYNC. CHAR 
SEND IT 
DO BIX TIMES 


CHARACTER FROM DATA BUFFER 
OUTPUT IT 





TITLE DCMC2♦ 

♦REV A* 

CLA TEST (SAF) 
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002803 

0C4F 

40DE 






002804 

0C50 

6327 






OO280T 



* 

LOC 

LP1AA 



002808 


043B 

LP1AA 

EOU X»043B» 



002809 



* ’" 

WAIT 




002810 

0C51 

05BD 






002811 

0C52 

3100 






002812 



ft 

B 

LP1ABD 



002815 

0C53 

20F1 






002816 



ft 

LOC 

LP1AB 



002817 


0440 

LP1AB EQU X♦0440• 



002818 



ft 

WAIT 




002819 

0C54 

BD31 






002820 



ft 

LD 

*X»FF» 



002821 

OC55 

00C6 






002824 



ft 

SEND 

0 



002825 

0C56 

FFBO 






002828 

OC57 

3040 






002829 



ft 

BLBT 

LP1AC1 



002830 

0C58 

9665 






002831 

0C59 

8520 






002834 

0C5A 

2605 






002835 



ft 

GNB 




002836 

0C5B 

BD31 






002837 



* 

B 

LPIAA 



002838 

0C5C 

2020 






002841 



ft 

LOC 

LP1AC1 



002842 


0453 

LP1AC1 EQU X*0453» 



002843 



* 

GNB 




002844 

0C5D 

E8BD 






002845 

0C5E 

3120 






002846 



ft 

WAIT 




002847 

0C5F 

BD31 






002848 



# 

B 

LP1A 



002849 

0C60 

0020 






002852 



4 

NOP 




002853 

0C61 

A501 






002854 



ft 





002855 



ft 





002856 



* 

RECEIVE PROGRAM FOR 

CRC AND PARITY 


002857 



ft 





002856 



# 





002859 



ft 

ORG 

X»200* 



002860 


0C62 

CHLP2 

EQU 

$ 



002861 



ft 

LO 

24 

GET LINE SPEED (ASYNC) OR SYNC 

CHAR (SYNC) 

002864 

0C62 

0618 






002865 



ft 

OUT 

4 

OUTPUf IT 


002866 

0C63 

B030 






002869 



ft 

LO 

20 

LOAD LINE CONTROL 


002870 

0C64 

3006 






002873 



ft 

OUT 

2 

OUTPUI IT 


002874 

0C65 

14BP 






002877 

0C66 

3028 






002878 



ft 

RECV 

0 



002879 

0C67 

BD30 






002882 



ft 

WAIT 




002883 

0C68 

60B0 






002884 

0C69 

3100 






002885 



ft 





002846 



. * 

LO 

24. 

SEE. It-SYNC* LINE 


0Q268V 

0C6A 

D618 






002890 



ft 

C 

«X»E» 

IF SYNC. SET UP To RECV# 


002893 

0C6B 

860E 






002894 

0C6C 

1097 






002895 



ft 

BET 

RCVA 

4 OR 5 SYNC# CHAR. 


002896 

0C6D 

4196 






002897 

0C6E 

4127 






002900 



ft 

LOC 

JHQQ 



002901 


02 IB 

JHQQ 

EQU X»021B* 



002902 



ft 

RECV 

0 

RECEIVE FIRST SYNC CHAR. 


002903 

0C6F 

38BD 






002906 

0C70 

3060 






002907 



ft 

WAIT 




002908 

0C71 

B031 






002909 



ft 

RECV 

0 

RECEIVE SECOND SYNC. 


002910 

0C72 

OOBO 






002913 

0C73 

3060 






002914 



ft 

C 

24 

CHECK TO SEE IF TRUE SYNC# 


002917 

0C74 

9618 






002918 

0C75 

1097 






002919 



ft 

BET 

JFUQ 



002920 

0C76 

4196 




* 


002921 

0C77 

4127 






002924 



ft 

LD 

20 

SHUT OFF LINE 


002925 

0C78 

0E06 






002928 



ft 

AND 

*X» FD* 



002929 

0C79 

14C4 






002932 



ft 

OUT 

2 



002933 

0C7A 

FOBD 






002936 

0C7B 

3028 






002937 



ft 

LO. 

20 

SHUT LINE BACK ON 


002940 

0C7C 

0614 






002941 



ft 

OUT 

2 



002942 

0C7D 

B030 






002945 



ft 

B 

JHQQ 



002946 

0C7E 

2820 






002949 



ft 

LOC 

JFQQ 



002950 


023B 

JFQQ 

EQU X*023B* 



002951 



ft 

WAIT 




002952 

QC7F 

EOBO 






002953 

0C80 

3100 






002954 



ft 

RECV 

0 

RECEIVE THIRD SYNC. 


002955 

0C81 

B030 






002958 



ft 

LOC 

NSTR 



002959 


0241 

NSTR 

EQU X•0241 * 



002960 



ft 

WAIT 




002961 

0C82 

60BD 






002962 

0C83 

3100 






002963 - 



ft 

RECV 

0 

RECEIVE SYNC, OR START OF DATA 

CHAR. (FF) 

002964 

0C84 

B030 






002967 



. ft 

C 

*X* FF • 



002968 

0C85 

6086 






002971 

0C86 

FF 10 
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002972 

0C87 

9741 





002973 



* 

BEF 

. NSTR 


002974 

0C88 

9641 





002977 

0C89 

26F1 





002978 



# 

WAIT 



002979 

0C8A 

6031 





002980 



ft 




002981 



# 

LOO 

RCVA 


002982 


0253 

RCVA 

EGU X»0253 * 


002983 



* 

LO 

23 

LOAD FLAG FOR TYPE OF RECV. 

002984 

0C8B 

0006 





002987 



ft 

0 

= 1 

IF TRUE TEST JUST CRC 

002988 

0C8C 

1786 





002991 

0080 

0110 





002992 

QC8E 

9741 





002993 



ft 

BET 

RECV 1 


002994 

0C8F 

9641 





002997 

0090 

2718 





002998 



ft 

0 

*X* FO *• 

IF TRUE TEST JUST 

003001 

0091 

86F0 





003002 

0092 

1097 





003003 



ft 

BET 

RE0V2 


003004 

0093 

4196 


> 



003005 

0094 

4127 





003008 



ft 




003009 



ft 

LOC 

RECV3 


003010 


0267 

KE0V3 

EGU X»0267 * 


003011 



ft 

RECV 

3 

TEST ORO AND PARITY 

003012 

0095 

1660 





003015 

0096 

3078 





003016 



ft 

ST* 

STURE 

INTO BUFFER 

003017 

0097 

6030 





003018 



ft 

BLOT 

ROV 

BRANCH IF LA5T CHARACTER TRUE 

003019 

0098 

CODE 





003020 

0099 

6327 





003023 



ft 

WAIT 



003024 

0C9A 

2360 





003025 

0096 

3100 





003026 



ft 

B 

RECV3 


003029 

0090 

20F1 





003030 



ft 




003031 



ft 




003032 



ft 

LOC 

RE0V1 


003033 


0276 

RE0V1 

EGU X*0276 * 


003034 



ft 

RECV 

1 

TEST CKO 

003035 

0090 

6030 





003038 



ft 

ST. 

STURE 

IN BUFFER 

003039 

009E 

6860 





003040 

009F 

3000 





003041 



ft 

BLOT 

ROV 


003042 

00A0 

DE63 





003045 

OOAi 

2714 





003046 



ft 

WAIT 



003047 

00A2 

b03i 





003048 



ft 

6 

REOVI 


003049 

00A3 

0020 





003052 



ft 




003053 



ft 




003054 



ft 

LOC 

KE0V2 


0£30§5 


0285 

KE0V2 X »i 

0285* 


003056 



ft 

RECV 

2 

TEST PARITY 

003057 

0CA4 

F1BD 





003060 

00A5 

3070 





003061 



ft 

ST. 



003062 

00A6 

6030 





003063 



ft 

BLOT 

ROV 


003064 

00A7 

OODE 





003065 

00A8 

6327 





003068 



ft 

WAIT 



003069 

0CA9 

0560 





003070 

OCAA 

3100 





003071 



ft 

6 

RE0V2 


003074 

00A6 

20F1 





003075 



ft 




003076 



* 




003077 



* 

LOC 

ROV 


003078 


0294 

ROV EGU X * 0294» 


003079 



ft 

LO 

*0 

LOAD 2EK0 TO TURN OFF 

003082 

OOAC 

0600 





003083 



ft 

OUT 

2 

receive 

003064 

OCAD 

6030 





003087 



ft 

GN6 



003088 

OOAE 

2860 





003009 

OOAF 

3120 





003090 



ft 

WAIT 



003091 

OOBO 

6031 





003092 



ft 

B 

RCVA 


003093 

00B1 

0020 





003096 



ft 

NOP 



003097 

00B2 

6201 





003098 



ft 




003099 



ft 




003100 



ft 


XMIT PROGRAM 

FOR CRC AND PARITY TEST 

003101 



ft 




003102 



ft 




003103 



ft 

QRG 

X»400« 


003104 


0CB3 

CHLP2A EGU 

$ 


003105 



ft 

LO 

2 

GET LINE CONFIGURATION 

003108 

00B3 

0602 





003109 



ft 

OUT 

6 

OUTPUT IT 

003110 

00B4 

6030 





003113 



ft 

LO 

sX* FA* 

LOAD FILL CHAR. 

003114 

00B5 

3806 





003117 



ft 

OUT 

4 

OUTPUT SYNC. FILL CHAR. 

003118 

00B6 

FABO 





003121 

00B7 

3030 





003122 



ft 

WAIT 



003123 

00B6 

6031 





003124 



ft 




003125 



ft 

LO 

24 

SEE IF SYNC. LINE 

003128 

0CB9 

0006 





003129 



ft 

C 

»X»E» 

IF SYNC. LINE SEND OUT FILL CHAR 

003130 

OCBA 

1886 
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003133 

OCBB 

0E10 

003134 

003135 

OCBC 

9741 

003136 

QCBD 

9641 

003139 

003140 

OCBE 

2724 

003143 

003144 

OCBF 

C6FA 

003145 

003146 

occo 

B030 

003149 

003152 

0CC1 

30C6 

003153 

003154 


041F 

003155 

003156 

0CC2 

0607 

003159 

003162 

0CC3 

3FD6 

003163 

0CC4 

18BD 

003166 

003167 

0CC5 

3040 

003170 

003171 

003172 

0CC6 

063F 

003173 

0CC7 

5A50 

003176 

003177 

0CC8 

2705 

003178 

0CC9 

BO 31 

0031T9 



003180 

003183 

OCCA 

0020 

003184 

003185 


0431 

003186 

OCCB 

EEBO 

003187 

003186 

OCCC 

3100 

003191 

003192 

OCCO 

C6FF 

003193 

003196 

OCCE 

BD30 

003197 

OCCF 

40B0 

003198 

003199 

003200 

OCOO 

3100 

003201 

003202 


043C 

003205 

003206 

0CD1 

0617 

00.3209 

0CD2 

8601 

003210 

003211 

0CD3 

1097 

003212 

0CD4 

4196 

003213 

003216 

0CD5 

4127 

003217 

0CD6 

1686 

003220 

0CD7 

F010 

003221 

003222 

0CD8 

9741 

003223 

0CD9 

9641 

mnu- 

003227 

OC0A 

2X1JE 

003228 

003229 


0450 

003230 

003231 

OCDB 

BD30 

003232 

OCDC 

AOBD 

003235 

003236 

OCOO 

3056 

003237 

OCDE 

0E63 

003240 

OCDF 

2723 

003241 



003242 

003243 

OCEO 

B031 

003244 

003247 

003248 

0CE1 

0020 

003249 

003250 


045F 

003251 

0CE2 

F1B0 

003252 

003253 

0CE3 

30A0 

003254 

003257 

0CE4 

B030 

003258 

0CE5 

480E 

003259 

003262 

0CE6 

6327 

003263 

0CE7 

14B0 

003264 

003265 

0CE8 

3100 

003268 

003269 

003270 

0CE9 

20FI 

003271 

003272 


046E 

003273 

003274 

OCEA 

B030 

003275 

OCEB 

AOBO 

003278 

003279 

OCEC 

3050 

003280 

OCEO 

0E63 

003283 

003284 

OCEE 

2705 

003285 

003286 

OCEF 

6031 

003287 

003290 

003291 

OCFO 

0020 

003292 

003293 


0470 

003294 

OCF1 

F1B0 

003295 

003296 

0CF2 

3100 

003299 

0CF3 

C6FF 


* 

BET 

SNC1 

AND 3 SYNC. <0R FILL) 


* 

LD 

sX»FA* 

LOAD FILL CHAR. 


ft 

OUT 

4 



ft 

LO 

= 6 



ft 

LQC 

XMVV 



XMVV 

EOU X»041F* 



ft 

ST 

63 



ft 

LO 

24 

LOAD SYNC. CrlAR 


ft 

SEND 

0 

SEND IT 


ft 

LO 

63 

DO SIX TIMES 


ft 

DEC 




ft 

BZT 

SDVV 



ft 

WAIT 




ft 

B 

XMVV 



ft 

LQC 

SOW 



SDVV 

EQU X»043i» 



ft 

WAIT 




ft 

LO 

sX»FF» 



ft 

SEND 

0 

XMIT START OF DATA CHAR. 

(FF) 

ft 

WAIT 




ft 





ft 

LOC 

SNC1 



SNC1 

EOU X»043C» 



ft 

LD 

23 

LOAD FLAG FOR TYPE OF SEND INST. 

ft 

C 

cl 

IF TRUE TEST JUST CRC 


ft 

BET 

CPCRC 



* 

C 

*X»FO» 

IF TRUE TEST PARITY 


ft 

BET 

CPPAR 



ft 

LOC 

SNC3 

TEST BO 1H CRC AND PARITY 

UN XMIT 

5NC3 

EQU X»0450» 



ft 

LO, 




ft 

SEND 

3 



ft 

BLCT 

LCB1 

BRANCH UN LAST CHAR. 


ft 

WAIT 




ft 

B 

SNC3 

DUE NEXT CHAR. 


ft 





ft 

LOC 

CPCRC 



CPCRC 

: EQU X»045F* 



ft 

LD, 

LOAD 

CHAR. FROM DATA BUFFER 


ft 

SEND 

1 

XMIT CHAR. AND CALCULATE 

CRC 

ft 

BLCT 

LCB1 

BRANCH UN LAST CHAR. 


ft 

WAIT 




ft 

B 

CPCRC 

DUE NEXT CHAR. 


ft 





ft 

LOC 

CPPAR 



CPPAH 

! EQU X»046E* 



ft 

LO, 

LOAD 

CHAR. FROM DATA BUFFER 


ft 

SEND 

2 

MIT CHAR. WITH PARITY 


ft 

BLCT 

LCB1 



ft 

WAIT 




ft 

B 

CPPAR 



ft 





ft 

LOC 

LCB1 



LCB1 

EQU X»0470» 



ft 

WAIT 




ft 

LO 

sX»FF* 

OUTPUT DUMMY CHAR, FOR SHIFT REG, 



\ 

y 
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003300 



ft 

SEND 

0 


003301 

0CF4 

0030 





003304 



ft 

0L0T 

NWT 

BRANCH ON LAbT BLOCK 

003305 

0CF5 

4096 





003306 

0CF6 

6585 





003307 

0CF7 

2026 





003310 



ft 

0 

SNC1 


003311 

0CF8 

0220 





003314 



ft 




003315 



ft 

LOC 

NWT 


003316 


0480 

NWT EQU X * 0480 

* 


003317 



ft 

LO 

20 


003316 

0CF9 

AFD6 





003321 



ft 

ANO 

sX»FE' 


003322 

OCFA 

14C4 





003325 



ft 

OUT 

2 


003326 

OCFB 

FEBO 





003329 

OCFC 

3028 





003330 



ft 

GNB 



003331 

OLFP 

0031 





003332 



ft 

WAIT 



003333 

OCFE 

2000 





003334 

OCFF 

3100 





003335 



ft 

0 

SNCl 


003336 

0000 

20A0 





003339 



# 

NOP 



003340 



ft 




003341 



ft 




003342 



ft 

RECEIVE PROGRAM 

FOR CHARACTER SUE TEST 

003343 



ft 




003344 



ft 




003345 



ft 

ORG 

X»2Q0* 


003346 

0001 

0100 





003347 


OD02 

CHLP3 

EQU 

$ 


003348 



ft 

LOC 

RCP3 


003349 


0200 

RCP3 

EQU X»0200» 


003350 



ft 

LO 

24 

GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 

003353 

0002 

0618 





003354 



ft 

OUT 

4 

OUTPUI IT 

003355 

0003 

0030 





003356 



* 

LD 

20 


003359 

0004 

3006 





003362 



ft 

OUT 

2 

OUTPUT LINE CONTROL 

003363 

0D05 

1400 





003366 

0006 

3026 





003367 



ft 

RECV 

0 


003366 

0D07 

0030 





003371 



ft 

WAIT 



003372 

0008 

6000 





003373 

0009 

3100 





003374 



ft 




003375 



ft 

LO 

24 

SEE IF SYNC TO RECV. 

003378 

OOOA 

0618 





003379 



ft 

C 

sX»E* 


003382 

0000 

860E 





003383 

oooc 

1097 





003384 



ft 

BET 

RCCH 


003385 

oooo 

4196 





003386 

ODOE 

4127 





OQ33S9 



ft 

LOC _ 

. jhyy 


003390 


0210 

JHYY 

EQU X»021B' 


003391 



ft 

RECV 

0 

INPUT FIRST SYNC* 

003392 

OOOF 

3EBD 





003395 

0010 

3060 





003396 



ft 

WAIT 



003397 

0011 

0031 





003398 



* 

LO 

24 


003399 

0012 

0006 





003402 



ft 

AND 

28 


003403 

0013 

1804 





003406 



ft 

ST 

59 


003407 

0014 

1CD7 





003410 



ft 

RECV 

0 

INPUT SECOND SYNC. 

003411 

0015 

3000 





003414 

0016 

3060 





003415 



ft 

C 

59 

CHECK TO SEE IF TRUE SYNC. 

003418 

0D17 

963B 





003419 

0018 

1097 





003420 



ft 

BET 

JFYY 


003421 

0D19 

4196 





003422 

001A 

4127 





003425 



ft 

LD 

20 

SHUT OFF LINE 

003426 

0010 

0ED6 





003429 



ft 

ANO 

sX»FD* 


003430 

ODK 

14C4 





003433 



ft 

OUT 

2 


003434 

0010 

FDBD 





003437 

001E 

3026 





003436 



ft 

LO 

20 

5HUT LINE BACK ON 

003441 

001F 

0614 





003442 



ft 

OUT 

2 


003443 

0020 

0030 





003446 



ft 

0 

JHYY 


003447 

0021 

2820 





003450 



ft 

LOC 

JFYY 


003451 


0241 

JFYY 

EQU X*0241 * 


003452 



ft 

WAIT 



003453 

0022 

OA0O 





003454 

0023 

3100 





003455 



ft 

RECV 

0 

INPUT THIRD SYNC. 

003456 

0D24 

8030 





003459 



ft 

LOC 

RCKSY 


003460 


0247 

RCKSY 

EQU X * 0247 * 


003461 



* 

WAIT 



003462 

0025 

6000 





003463 

0026 

3100 





003464 



ft 

RECV 

0 


003465 

0D27 

0030 





003468 



ft 

C 

*X»1F« 

SEE IF START OF DATA CHARACTER 

003469 

0028 

6086 





003472 

0D29 

1F10 





003473 

002A 

9741 





003474 



ft 

0EF 

RCKSY 
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003475 

0026 

9641 




003478 

002C 

26F1 




003479 



* 

WAIT 


003480 

0020 

6031 




003481 



# 

LOC 

RCCH 

003482 


0259 

RCCH 

EQU X»0259» 

003483 



« 

LO 

2 CHECK FOR FIVE BIT CHAR. 

003484 

002E 

0006 




003487 



* 

B2T 

NPRY 

003488 

002F 

0250 




003491 

0030 

270F 




003492 



ft 



003493 



ft 

RECV# CHAR WITH PARITY 6-7 BIT CHAR# 

003494 



ft 



003495 



ft 

LOC 

PRYT 

003496 


025E 

PRYT 

EQU X'025E* 

003497 



ft 

RECV 

2 

003498 

0031 

6030 




003501 




5T 


003502 

0032 

7060 




003503 

0033 

30C0 




003504 



ft 

BLCT 

SHFL 

003505 

0034 

DE63 




003508 

0D35 

2714 




003509 



ft 

WAIT 


003510 

0D36 

6031 




003511 



ft 

B 

PRYT 

003512 

0037 

0020 




003515 



ft 



003516 



ft 

RECV. FIVE BIT CHAR* NO PARITY 

003517 



* 



003518 



ft 

LOC 

NPRY 

003519 


0260 

NPRY 

EGO X•0260* 

003520 



ft 

RECV 

0 

003521 

0038 

F1B0 




003524 

0039 

3060 




003525 



ft 

ST 


003526 

0D3A 

B030 




003527 



ft 

BLCT 

SHFL 

003528 

0036 

COOE 




003529 

003C 

6327 




003532 



ft 

WAIT 


003533 

003D 

0560 




003534 

003E 

3100 




003535 



ft 

B 

NPRY 

003538 

003F 

20F1 




003539 



ft 



003540 



ft 

TORN OFF 

THE LINE 

003541 



ft 



003542 



ft 

LOC 

SHFL 

003543 


027C 

SHFL 

EQU X'0270 

003544 



ft 

LD 

#0 

003547 

0040 

C600 




003548 



ft 

OUT 

2 

003549 

0D41 

B030 




003552 



ft 

GNB 


003553 

0042 

2860 




003554 

0043 

3120 




003555 



ft 

WAIT 


OQ155J5 _ 

0044 

6031 




003557 



ft 

JUMP 

RCP3 

003558 

0045 

003F 




003561 

0046 

FF76 

OC RCP3-X'028A» 

003562 



ft 

NOP 


003563 



ft 



003564 



ft 



003565 



ft 

TRANSMIT PROGRAM FOR CHARACTER SUE TEST 

003566 



ft 



003567 



ft 

0K6 

X * 400 

003568 

0047 

0100 




003569 


0048 

CHLP3A EQU 

S 

003570 



ft 

LD 

2 GET LINE CONFIGURATION 

003573 

0048 

0602 




003574 



ft 

OUT 

6 0UTPU1 IT 

003575 

0049 

6030 




003578 



ft 

LO 

sX'FA* LOAD FILL CHAR* 

003579 

004A 

38C6 




003582 



ft 

OUT 

4 OUTPUT SYNC. FILL CHAR. 

003583 

0046 

FA80 




003586 

0D4C 

3030 




003587 



ft 

WAIT 


003588 

0040 

6031 




003589 



ft 

LO 

=X'1F» LOAD DEFAULT MASK JO STRIP 5 

003590 

004E 

00C6 




003593 



ft 

ST 

27 

003594 

004F 

1F07 




003597 



ft 

ST 

28 

003598 

0D50 

1607 




003601 



ft 

LO 

eX'FA* LOAD FILL CHAR. 

003602 

0051 

1CC6 




003605 



ft 

OUT 

4 OUTPUI SYNC. CHAR, 

003606 

0052 

FA60 




003609 

0053 

3030 




003610 



ft 

LD 

2 

003613 

0054 

0602 




003614 



ft 

BZT 

XPYQ 

003615 

0055 

5027 




003618 



ft 



003619 



ft SET 

MASK TO 

STRIP BITS FOR SYNC. CHAR. ON RECV. SIDE 

003620 



ft 



003621 



ft 

C 

*X*40« 

003622 

0056 

2686 




003625 

0057 

4010 




003626 

0058 

9741 




003627 



ft 

6EF 

N61 

003628 

0059 

9641 




003631 

0D5 A 

2609 




003632 



ft 

LO 

s=X'3F' 

003635 

0056 

C63F 




003636 



ft 

ST 

28 

003639 

0D5C 

071C 




003640 



ft 

SR. 


003641 



ft 

ST 

27 
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003642 

0050 

5407 





003645 



* 

B 

XPYQ 


003646 

005E 

1B20 





003649 



ft 

IOC 

N61 


003650 


042F 

N61 1 

EQU X*042F* 



003651 



ft 

C 

*X * 80• 


003652 

0D5F 

1986 





003655 

0060 

8010 





003656 

0D61 

9741 





003657 



ft 

BEF 

N71 


003658 

0062 

9641 





003661 

0063 

2609 





003662 



ft 

LD 

*X»7F» 


003665 

0064 

C67F 





003666 



ft 

5T 

28 


003669 

0065 

071C 





003670 



* 

SR 



003671 



ft 

ST 

27 


003672 

0066 

54D7 





003675 



ft 

B 

XPYQ 


003676 

0067 

1B20 





003679 



* 

LOC 

N71 


003680 


0441 

N71 

EQU X*0441 * 



003681 



ft 

- LD 

-X*FF* 


003682 

0068 

07C6 





003685 



ft 

ST 

28 


003686 

0069 

FFD7 





003689 



ft . 

SR 



003690 

006A 

1C54 





003691 



ft 

ST 

27 


003694 

0068 

P71B 





003695 



ft 

LOC 

XPYQ 


003696 


0448 

XPYQ 

EQU X 1 0448 * 


003697 



ft 

LD 

24 


003700 

006C 

0616 





003701 



ft 

C 

*X»E» 


003704 

0060 

860E 





003705 

006E 

1097 





003706 



ft 

BET 

XMNS 

BRANCH UN ASYNC. LINE 

003707 

006F 

4196 





003708 

0070 

4127 





003711 



ft 

LD 

s6 


003712 

0071 

1FC6 





003715 



ft 

LOC 

XM ll 


003716 


0455 

mu 

EQU X 1 0455* 


003717 



* 

ST 

63 


003718 

OD72 

0607 





003721 



ft 

LO 

24 

LOAD SYNC, CHAR 

003722 

0073 

3F06 





003725 



ft 

SENO 

0 

SEND IT 

003726 

0074 

18BD 





003729 

0075 

3040 





003730 



* 

LO 

63 

DO SIX TIMES 

003733 

0D76 

D63F 





003734 



* 

DEC 



003735 




BZT 

5DZZ 


003736 

0077 

5A50 





003739 

0078 

2705 





003740 




WAIT 



0O3741 

0079 

mi 





003742 




B 

XM ll 


003743 

0D7A 

0020 





003746 




LOC 

S Dll 


003747 


0467 

50 ll 

EQU X'0467‘ 


003748 



ft 

WAIT 



003749 

0078 

EE80 





003750 

007C 

3100 





003751 



ft 

LO 

sX*lF» 


003754 

0070 

C61F 





003755 



ft 

SENO 

0 

XMJ T START OF DATA CHAR 

003756 

0P7E 

B030 





003759 



ft 

WAIT 



003760 

007F 

4080 





003761 

0080 

3100 





003762 



ft 

LOC 

XMNS 


003763 


0472 

XMNS 

EQU X * 0472 * 


003764 



ft 

LO 

2 


003767 

0D81 

0602 





003768 



ft 

B2T 

XNPY 


003769 

0062 

5027 





003772 



ft 




003773 



ft 

SENO DATA WITH PARITY 


003774 



ft 




003775 



ft 

LOC 

XPY 


003776 


0477 

XPY 

EQU X*0477* 


003777 



ft 

LO 



003778 

0083 

1180 





003779 

0084 

30A0 





003780 



ft 

AND 

27 


003783 

0085 

041B 





003784 



ft 

SENO 

2 


003785 

0086 

B030 





003788 



# 

BLCT 

EDXT 


003789 

0087 

500E 





003790 

0088 

6327 





003793 



ft 

WAIT 



003794 

0089 

16B0 





003795 

008A 

3100 





003796 



ft 

B 

XPY 


003799 

0088 

20EF 





003800 



ft 




003801 



ft 

SENO DATA FIVE BIT NO PARITY 


003802 



ft 




003603 



ft 

LOC 

XNPY 


003604 


0468 

XNPY 

EQU X»0488» 


003605 



ft 

LD 



003806 

008C 

B030 





003807 



ft 

AND 

27 


003608 

0080 

A004 





003611 



ft 

SEND 

0 


003612 

008E 

1BBD 





003615 

Q08F 

3040 





003616 



ft 

BLCT 

EDXT 





TITLE DCMC2, 

•REV A» 

CLA TEST (SAF) 



PAGE 34 


003817 

0D9Q 

0E63 






003820 

0091 

2705 






003821 



* 

WAIT 




003822 

0092 

B031 





003823 



4 

B 

XNPY 



003824 

0093 

0020 






003827 



6 





003826 



4 

XMIT DUMMY CHAR, TO 

SHIFT LAST DATA 


003829 



4 





003830 



4 

LOC 

EDXT 



003831 


0499 

EDXT 

EQU X»0499* 



003632 



4 

WAIT 




003633 

0094 

EFBD 






003834 

0095 

3100 






003835 



4 

LD 

27 



003838 

0096 

06 IB 






003839 



4 

SEND 

0 



003840 

0097 

BD30 






003843 



4 

BL6T 

EOP 



003644 

0098 

4096 






003645 

0099 

6585 






003648 

009A 

2026 






003849 



4 

WAIT 




003850 

0D9B 

05B0 






003651 

009C 

3100 






003652 



4 

B 

XMNS 



003855 

0090 

20C6 






003856 



4 





003857 



4 

LOC 

EOP 



003858 


04AC 

EOP 

EQU X»04AC» 




003659 



4 

GNB 




003660 

009E 

BD31 






003861 



4 

WAIT 




003662 

009F 

20B0 






003863 

00A0 

3100 






003664 



4 

B 

EDXT 



003667 

0DA1 

20E5 






003868 



4 

NOP 




003669 



4 ‘ 





003670 



4 





003871 



4 





003872 



4 

RECEIVE PROGRAM 

FOR OVERRUN TEST 


003673 



4 





003874 



4 





003875 



4 

ORG 

X * 200 * 



003876 

00A2 

0100 






003677 


0DA3 

CHLP4 EQU $ 




003876 



4 





003879 



4 

LD 

s 10 



003682 

00A3 

C60A 






003883 



4 

ST 

28 



003686 

00A4 

071C 






003887 



4 

LO 

2 


yf " 'x 

003690 

00A5 

0602 






003891 



4 

OUT 

6 



003892 

00A6 

8030 






003695 



4 

LO 

24 

GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 


003896 

0QA7 

3806 






003899 



4 

OUT 

4 

OUTPUI IT 


0039110 

OOA8 

uao. 






003903 

00A9 

3030 






003904 



4 

LO 

20 



003907 

OOAA 

0614 






003908 



4 

OUT 

2 



003909 

QDAB 

B030 






003912 



4 

RECV 

0 



003913 

OOAC 

28BD 






003916 

ODAO 

3060 






003917 



4 

WAIT 




003918 

OOAE 

B031 






003919 



4 





003920 



4 





003921 



4 

LOC 

BEG 



003922 


0219 

BEG 

EQU X»0219» 




003923 



4 

LD 

24 



003924 

OOAF 

0006 






003927 



4 

C 

»X*E» 



003928 

ODBQ 

1886 






003931 

00B1 

0E10 






003932 

00B2 

9741 






003933 



4 

BET 

RMCH 



003934 

0DB3 

9641 






003937 

00B4 

2738 






003938 



4 

LOC 

JHRR 



003939 


0224 

JHRR 

EQU X*0224* 



003940 



4 

RECV 

0 

1ST SYNC, 


003941 

0DB5 

B030 






003944 



4 

WAIT 




003945 

00B6 

60B0 






003946 

00B7 

3100 






003947 



4 

RECV 

0 

2ND SYNC, 


003948 

00B8 

0030 






003951 



4 

C 

24 

CHECK TO SEE IF TRUE SYNC, 


003952 

00B9 

6096 






003955 

OOBA 

1810 






003956 

OOBB 

9741 






003957 



4 

BET 

JFRR 



003958 

ODBC 

9641 






003961 

OOBD 

270E 






003962 



4 

LO 

20 

SHUT OFF LINt 


003965 

OOBE 

0614 






003966 



4 

A NO 

sX»FO» 


| ^ 

003969 

OOBF 

C4FD 





C .. / 

003970 



4 

OUT 

2 



003971 

ooco 

B030 






003974 



4 

LD 

20 

SHUT LINE BACK ON 


003975 

00C1 

2606 






003978 



4 

OUT 

2 



003979 

00C2 

14BD 






003982 

0DC3 

3028 






003983 



4 

B 

JHRR 



003986 

00C4 

20E0 






003987 



4 

LOC 

JFRR 
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003980 


0244 

UFRR 

EQU X»0244* 


003989 



ft 

WAIT 



003990 

0DC5 

B031 





003991 



* 

RECV 

0 

3RD SYNC, 

003992 

0DC6 

OOBO 





003995 

0DC7 

3060 





003996 



ft 

LOC 

NSCH 


003997 


024A 

NSCH 

EQU X«024A* 


003998 



ft 

WAIT 



003999 

0DC8 

B031 





004000 



* 

RECV 

0 


004001 

00C9 

OOBO 





004004 

00CA 

3060 





004005 



* 

C 

sX»FF» 

SEE IF START DATA CHAR< 

004008 

ODCB 

86FF 





004009 

QDCC 

1097 





004010 



* 

BEF 

NSCH 


004011 

ODCD 

4196 





004012 

ODCE 

4126 





004015 



ft 

WAIT 



004016 

ODCF 

F1BD 





004017 

0000 

3100 





004018 



ft 

LOC 

RMCH 


004019 


025C 

RMCH 

EQU X f 025C* 


004020 



* 

RECV 

0 


004021 

0001 

B030 





004024 



ft 

ST 



004025 

0002 

60B0 





004026 

0003 

30C0 





004027 



ft 

BLCT 

RENO 


004028 

0004 

DE63 





004031 

0005 

2705 





004032 



ft 

WAIT 



004033 

0006 

BD31 





004034 



ft 

B 

RMCH 


004035 

0007 

0020 





004038 



ft 




004039 



ft 




004040 



ft 

LOC 

REND 


004041 


0266 

REND 

EQU X»026B« 


004042 



ft 

LO 

cX«C5* 


004043 

0D08 

F1C6 





004046 



* 

OUT 

2 


004047 

0009 

C5B0 





004050 

OOOA 

3028 





004051 



* 

GNB 



004052 

00D6 

BD31 





004053 



* 

WAIT 



004054 

OOOC 

20B0 





004055 

OODO 

3100 





004056 



ft 

B 

BEG 


004059 

OOOE 

20A1 





004060 



* 




004061 



ft 




004062 



ik 




004063 



ft 

TRANSMIT PROGRAM 

FOR UNDERRUN TEST 

004064 



ft 




004065 



ft 




004066 



ft 

ORG 

X*2CQ» 


004067 


QDDE 

CHL£4&_,E£U 

$ 


004068 



ik 

LOC 

TOP 


004069 


02C0 

TOP 1 

EQU X'02C0 

• 


004070 



ft 

WAIT 



004071 

OODF 

B031 





004072 



* 

LD 

24 


004073 

OOEO 

0006 





004076 



* 

C 

»X»E* 


004077 

0DE1 

1886 





004080 

00E2 

0E10 





004081 

00E3 

9741 





004082 



* 

BET 

NSY 


004083 

00E4 

9641 





004086 

ODES 

274A 





004087 



* 

LO 

*X«AA* 

LOAD FILL CHAR, 

004090 

00E6 

C6AA 





004091 



* 

OUT 

4 


004092 

00E7 

BD30 





004095 



* 

LO 

*6 


004096 

00E8 

30C6 





004099 



* 

LOC 

XMRR 


004100 


0205 

XMRR 

EQU X»0205» 


004101 



* 

ST 

63 


004102 

00E9 

0607 





004105 



ft 

LO 

24 

LOAD SYNC, CHAR 

004106 

OOEA 

3FD6 





004109 



ft 

SEND 

0 

SENO IT 

004110 

ODEB 

I860 





004113 

ODEC 

3040 





O041U 



* 

LO 

63 

DO SIX TIMES 

004117 

OOEO 

063F 





004118 



ft 

DEC 



004119 



ft 

BZT 

SORR 


004120 

OOEE 

5A5D 





004123 

OOEF 

2705 





004124 



ft 

WAIT 



004125 

OOFO 

B031 





004126 



ft 

B 

XMRR 


004127 

0DF1 

0020 





004130 



ft 

LOC 

SORR 


004131 


02E7 

SORR 

EQU X»02E7» 


004132 



ft 

WAIT 



004133 

0DF2 

EEBD 





004134 

0DF3 

3100 





004135 



ft 

LO 

*X»FF* 


004138 

0DF4 

C6FF 





004139 



ft 

SENO 

0 


004140 

0DF5 

BD30 





004143 



ft 

WAIT 



004144 

0DF6 

40B0 





004145 

00F7 

3100 





004146 



ft 

LO 

*2 


004149 

ODFb 

C602 





004150 



ft 

ST 

26 
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004153 

0DF9 

D71A 




004154 



* 

LOC 

NZ7 

004155 


02F6 

NZ7 EQU 

X*02F6< 

i 

004156 



# 

LD 


004157 

ODFA 

8030 




004156 



* 

SEND 

0 

004159 

ODFB 

AOBD 




004162 

ODFC 

3040 




004163 



ft 

LD 

26 

004166 

ODFD 

D61A 




004167 



« 

DEC 


004168 



ft 

ST 

26 

004169 

ODFE 

5AD7 




004172 



ft 

82 T 

CDLY 

004173 

ODFF 

1A5D 




004176 

OEOO 

2705 




004177 



* 

WAIT 


004178 

OEOl 

BD31 




004179 



ft 

B 

NZ7 

004180 

0E02 

0020 




004183 



ft 



004184 



ft 



004185 



* 

LOC 

CDLY 

004186 


0309 

CDLY EQU X*0309* 

004187 



ft 

BS 

DLAY 

004186 

0E03 

EDBD 




004189 

0E04 

3080 




004192 

0E05 

2067 




004193 



ft 

IN 

5 

004194 

0E06 

BD30 




004197 



ft 

ST 

60 

004198 

0E07 

14D7 




004201 



ft 

WAIT 


004202 

0E08 

3CBD 




004203 

0E09 

3100 




004204 



ft 

B 

NT3 

004207 

OEOA 

2026 




004208 



ft 



004209 



ft 



004210 



ft 

LOC 

NSY 

004211 


0318 

NSY EQU 

X* 0318' 


004212 



ft 

LO 


004213 

QEOB 

B030 




004214 



ft 

SEND 

0 

004215 

OEOC 

AOBD 




004218 

OEOD 

3040 




004219 



ft 

LD 

28 

004222 

OEOE 

061C 




004223 



ft 

DEC 


004224 



ft 

ST 

28 

004225 

OEOF 

5AD7 




004228 



ft 

BZT 

OVLY 

004229 

0E1Q 

1C5D 




004232 

OEU 

2705 




004233 



ft 

WAIT 


004234 

Ot 12 

8D31 




004235 



ft 

B 

NSY 

004236 

0E13 

0020 




004239 



ft 

LOC 

OVLY 

O0A240 


0-32B. 

OVLY EQLLX •Q32&! 

004241 



ft 

BS 

OLAY 

004242 

OEU 

EDBD 




004243 

0E15 

3080 




004246 

OEU 

2045 




004247 



ft 

SEND 

0 

004248 

0E17 

BD30 




004251 



ft 

BS 

OLAY 

004252 

0E18 

40BD 




004253 

0E19 

30,80 




004256 

0E1A 

203D 




004257 



ft 

IN 

5 

004258 

0E1B 

BD30 




004261 



ft 

ST 

60 

004262 

0E1C 

1407 




004265 



ft 

WAIT 


004266 

0E1D 

3CBD 




004267 

0E1E 

3100 




004268 



ft 

LOC 

NT3 

004269 


0340 

NT3 EQU 

X«0340< 


004270 



ft 

LO 


004271 

0E1F 

BD30 




004272 



ft 

SEND 

0 

004273 

0E20 

AOBD 




004276 

QE21 

3040 




004277 



ft 

BLCT 

EXM1 

004278 

0E22 

0E63 




004281 

OE23 

2705 




004282 



ft 

WAIT 


004283 

0E24 

B031 




004284 



ft 

B 

NT3 

004285 

0E25 

0020 




004288 



ft 



004289 



ft 



004290 



ft 

LOC 

EXMi 

004291 


034F 

EXMl EQU X*034F» 

004292 



ft 

WAIT 


004293 

0E26 

F1BD 




004294 

0E27 

3100 




004295 



ft 

LO 

sX»FF' 

004296 

0E28 

C6FF 




004299 



. ft 

SEND 

0 

004300 

0E29 

B030 




004303 



ft 

BLBT 

NSXM 

004304 

0E2A 

4096 




004305 

0E2B 

6585 




004306 

0E2C 

2026 




004309 



ft 

WAIT 


004310 

0E2D 

06BD 




004311 

0E2E 

3100 




004312 



ft 

JUMP 

TOP 

004315 

0E2F 

3 FFF 




004316 



ft 



004317 



ft 

LOC 

NSXM 
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4 
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TITLE DCMC2* *REV A* 


CLA TEST (SAF) 


PAGE 37 



004318 


0363 

NSXM 

EQU X*0363 

i 

004319 



ft 

GNB 


004320 

0£30 

5DBD 




004321 

0E31 

3120 




004322 



# 

LO 

20 

004325 

0E32 

0614 




004326 



* 

AND 

=X*Ft» 

004329 

0E33 

CAFE 




004330 



ft 

ST 

20 

004333 

0E34 

0714 




004334 



ft 

OUT 

2 

004335 

0E35 

BD3Q 




004336 



ft 

WAIT 


004339 

0E36 

28BD 




004340 

0E37 

3100 




004341 



ft 

B 

N5XM 

004344 

0E38 

2 OEF 




004345 



ft 

NOP 


004346 



ft 



004347 



ft 

LOC 

OLAY 

004348 


0375 

OLAY 

EQU X*0375* 

004349 



ft 

LD 

29 

004350 

0E39 

0106 




004353 



ft 

' B2F 

EDLY 

004354 

0E3A 

1050 




004357 

QE3B 

2604 




004358 



ft 

RET 


004359 

0E3C 

OE52 




004360 

0E3D 

6E00 




004361 



ft 

LOC 

EOLY 

004362 


037E 

EDLY 

EQU X*037E* 

004363 



ft 

ST 

30 

004366 

0E3E 

D71E 




004367 



ft 

LO 

*94 

004370 

0E3F 

C65E 




004371 



ft 

LOC 

LES5 

004372 


0382 

LESS 

EQU X * 0382 * 

004373 



ft 

DEC 


004374 



ft 

62 T 

NXC 

004375 

QE4Q 

5A50 




004378 

0E41 

2702 




004379 



ft 

B 

LESS 

004362 

0E42 

20FA 




004383 



# 

LOC 

NXC 

004384 


0388 

NXC EQU X * 0388 * 


004385 



ft 

LD 

30 

004388 

0E43 

06 IE 




004389 



ft 

OEC 


004390 



ft 

B2F 

EDLY 

004391 

0E44 

5A50 




004394 

0E45 

26F0 




004395 



ft 

RET 


004396 

QE46 

DE52 




004397 

0E47 

6E00 




004398 



ft 

NOP 


004399 



ft 



004400 



ft 



004401 



ft 

CHANNEL PROGRAM TO LOOP AND CHECK DSC INTO DSS 

004402 



ft 



0044.03 



ft 



004404 



ft 

ORG 

X *200 * 

004405 

0E48 

0100 




004406 


0E49 

CHLP5 

■ EQU 3 


004407 



ft 

LOC 

TOPI 

004408 


0200 

TOPI 

EQU X * 0200 * 

004409 



ft 

LO 

*7 

004412 

0E49 

C607 




004413 



ft 

ST 

30 

004416 

0E4A 

071E 




004417 



ft 

LD 

29 

004420 

0E46 

0610 




004421 



ft 

C 

=X»FO* 

004424 

0E4C 

86F0 




004425 

0E4D 

1097 




004426 



ft 

BEF 

T0P3 

004427 

0E4E 

4196 




004428 

0E4F 

4126 




004431 



ft 

LO 

= 16 

004432 

0E50 

08C6 




004435 



ft 

ST 

58 

004436 

0E51 

1007 




004439 



ft 

LO 

= 2 

004440 

OE52 

3AC6 




004443 



# 

0 

TCMB1 

004444 

0E53 

0220 




004447 



ft 

LOC 

T0P3 

004446 


0217 

T0P3 

EQU X*0217* 

004449 



ft 

C 

=X*FC* 

004450 

0E54 

0F86 




004453 

0E55 

FC10 




004454 

0E56 

9741 




004455 



ft 

BET 

T0P2 

004456 

OE57 

9641 




004459 

0E58 

2704 




004460 



ft 

LO 

= B 

004463 

0E59 

C608 




004464 



ft 

ST 

56 

004467 

0E5A 

D73A 




004468 



ft 

LOC 

T0P2 

004469 


0224 

TOP2 

EQU X*0224* 

004470 



ft 

LD 

= 0 

004473 

GE5B 

C600 




004474 



ft 

LOC 

TCMB1 

004475 


0226 

TCMB1 

, EQU X*0226* 

004476 



ft 

ST 

25 

004479 

0E5C 

0719 




004480 



ft 

C 

=4 

004483 

0E50 

8604 




004484 

0E5E 

1097 




004485 



ft 

bef 

DSET 

004486 

0E5F 

4196 




004487 

OE60 

4126 




004490 



ft 

LO 

■X* 80* 




TITLE DCMC21 


004491 0E61 

004494 

004495 QE62 
004498 

004499 0E63 

004502 

004503 0E64 

004506 
004507 
004508 

004509 0E65 

004512 0E66 

004513 0E67 

004514 

004517 0E68 

004518 

004519 0E69 

004522 

004523 0E6A 
004524 0E6B 
004525 
004526 

004527 0E6C 

004528 

004529 

004530 0E6D 
004531 0E6E 
004532 

004533 0E6F 
004534 

004535 0E70 

004536 0E71 

004537 

004538 0E72 

004539 

004540 0E73 

004543 0E74 

004544 

004545 Qt75 
004546 

004547 0E76 

004550 

004551 0E77 

004554 0E78 

004555 0E79 

004556 

004557 0E7A 
004560 0E7B 
004561 

004564 0E7C 

004565 

004566 

004567 0E7D 
004570 

004571 0E7E 
004574 
004575 
004576 

004577 0E7F 
9045JJ 0E80 

004579 

004580 0E81 

004581 

004582 0E82 

004585 

004586 0E83 

004587 • 

004588 

004589 

004590 

004591 

004592 

004593 

004596 0E84 

004597 

004598 0E85 

004601 

004602 0E66 

004605 

004606 0E87 

004609 0E88 

004610 

004611 0E89 

004612 
004613 
004614 

004615 0E8A 
004618 0E8B 
004619 

004620 0£8C 

004621 

004622 0E8D 
004625 0E8E 
004626 

004629 0E8F 
004630 0E90 

004631 

004632 0E91 

004633 OE92 
004636 

004637 0E93 

004640 

004641 0E94 

004644 

004645 OE95 
004648 0E96 

004649 

004652 0E97 

004653 

004654 0fc98 

004657 

004658 0E99 

004661 


♦REV A» 

CLA TEST (SAF) 



08C6 

ft 

OR 

28 

80DA 

ft 

ST 

28 

1CD7 

ft 

LD 

s4 

1CC6 

* 

LOC 

DSET 

0239 

D5ET 

EOU X»0239» 


ft 

TLU 

57 

04DE 

39BD 

30E0 

ft 

OR 

28 

DA1C 

* 

OUT 

2 

BD30 

ft 

CCH 

TIME 

28BD 

3160 

* 

NOP 



* 

NOP 


0101 

ft 

NOP 



ft 

CCH 


Q1BD 




3160 

ft 

CCH 


BD31 

ft 

CCH 


60BD 

3160 

ft 

CCH 


BD31 

ft 

IN 

5 

60BD 

3014 

ft 

ST 


6D30 

ft 

LD 

25 

C0D6 

* 

C 

30 

1996 

1E10 




9741 

ft 

BET 

ENDTC 

9641 

2707 

* 

XOR 

sX»FF* 

C8FF 

ft 

DEC 



ft 

XOR 

*X'FF» 

5AC8 

* 

B 

TCMB1 

FF20 

ft 

LOC 

ENDTC 

026D 

ENDTC 

EGU X*026D* 


ft 

GNB 


B9BD 

M2Q. 

ft 

WAIT 


BD31 

* 

B 

TOPI 

0020 

ft 

NOP 


8B01 

# 




* 

CHANNEL PROGRAM 


ft 

ADAPTER 

READY TEST 6 


ft 




ft 

ORG 

X*200» 

0E84 

CHLP6 

EOU 

S 


ft 

LD 

24 

0616 

ft 

OUT 

4 

B030 

ft 

LD 

20 

30D6 

ft 

OUT 

2 

14BD 

3028 

* 

WAIT 


BD31 

ft 

LOC 

SINK 

020D 

SINK. 

EQU X'020D» 


» 

RECV 

0 

OOBD 

3060 

ft 

WAIT 


BD31 

ft 

RECV 

0 

OOBD 

3060 

ft 

C 

24 

9618 

1097 

ft 

BET 

NSYK 

4196 

4127 

ft 

LD 

20 

0ED6 

ft 

AND 

bX»FD» 

14C4 

ft 

OUT 

2 

FDBD 

3028 

ft 

LD 

20 

D614 

ft 

OUT 

2 

BD30 

ft 

B 

SINK 

2820 

ft 

LOC 

NSYK 
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DELAY FOR CABLE TURN AROUND 


FOR BROADBAND(RECV) 

UNDERRUN OVERRUN TEST 

GET LINE SPEED (ASYNC) OR SYNC CHAR (SYNC) 
OUTPUI IT 


INPUT 1ST SYNC* 

INPUT 2ND SYNC. 







TITLE DCMC2« »KEV A* 


CLA TEST (SAF) 


PAGE 39 



004662 


Q22D 

NSYK 

EOU X*022D» 


004663 



4 

WAIT 



004664 

0E9A 

EOBP 





004665 

0E9B 

3100 





004666 



4 

RECV 

0 


004667 

0E9C 

BD30 





004670 



4 

WAIT 



004671 

QE9D 

60BD 





004672 

0E9E 

3100 





004673 



4 

LO 

30 


004676 

0E9F 

06 IE 





004677 



4 

BZF 

UDQR 


004678 

0EA0 

5026 





004681 



4 

BARF 

REKR 


004682 

0EA1 

3B20 





004685 



4 

LD 

20 


004686 

0EA2 

0ED6 





004689 



4 

OUT 

2 


004690 

0EA3 

14BP 





004693 

0EA4 

3028 





004694 



4 

LOC 

BUFE 


004695 


0242 

BUFE 

EOU X'0242 * 


004696 



4 

RECV 

0 


004697 

0EA5 

B030 





004700 



4 

ST 



004701 

0EA6 

60BP 





004702 

0EA7 

30C0 





004703 



4 

BARF 

BUFE 


004706 

0EA8 

20F8 





004707 



4 

BART 

CHRL 


004708 



4 

LOC 

RERR 


004709 


024B 

RERR 

EOU X»024B» 


004710 



4 

LO 

=X»FF» 


004711 

0EA9 

01C6 





004714 



.4 

ST 

61 


004715 

OEAA 

FF07 





004718 



4 

LOC 

CHRL 


004719 


024F 

CHRL 

EQU X* 024F' 


004720 



4 

LO 

*X«33« 


004721 

OEAB 

30C6 





004724 



4 

ST 

62 


004725 

OEAC 

33D7 





004728 



4 

LD 

= 127 


004729 

OEAP 

3EC6 





004732 



4 

ST 

59 


004733 

OEAE 

7FD7 





004736 



4 

LOC 

BEPY3 


004737 


0257 

BEPY3 

> EQU X* 1 

3257 • 


004738 



4 

WAIT 



004739 

OEAF 

3BBD 





004740 

OEBO 

3100 





004741 



4 

RECV 

0 


004742 

0EB1 

BP30 





004745 



4 

ST 



004746 

0EB2 

60BD 





004747 

0EB3 

30C0 





004748 



4 

LO 

59 


004751 

0EB4 

063B 





004752 



4 

DEC 



a04J£2_ 



4 

BZT 

J>TP3 


004754 

0EB5 

5A5D 





004757 

0EB6 

2758 





004758 



4 

ST 

59 


004761 

0EB7 

073B 





004762 



4 

IN 

5 

CHECK BUFFER EMPTy BIT 

004763 

0EB8 

B030 





004766 



4 

AND 

=X»Q4» 


004767 

0EB9 

14C4 





004770 



4 

BZF 

BEPY3 


004771 

OEBA 

0450 





004774 

OEBB 

26E7 





004775 



4 

LD 

= 0 


004778 

OEBC 

C600 





004779 



4 

ST 

62 


004782 

OEBP 

D73E 





004783 



4 

B 

STP3 


004786 

OEBE 

2048 





004787 



4 

LOC 

UOOK 


004788 


0276 

ODOR 

EQU X»0276* 


004789 



4 

C 

=X»F* 


004792 

OEBF 

860F 





004793 

OECO 

1097 





004794 



4 

BET 

UNO 


004795 

0EC1 

4196 





004796 

0EC2 

4127 





004799 



4 

RECV 

0 


004800 

0EC3 

OBBO 





004803 

0EC4 

3060 





004804 



4 

ST 



004805 

0EC5 

8030 





004806 



4 

WAIT 



004807 

0EC6 

COBO 





004808 

0EC7 

3100 





004809 



4 

B 

5TP3 


004812 

0EC8 

2034 





004813 



4 




004814 



4 




004615 



4 

LOC 

UNO 


004816 


028A 

UNO EOU X»028A» 


004617 



4 

LD 

*64 


004820 

0EC9 

C640 





004821 



4 

LOC 

FIFE 


004822 


Q28C 

FIFE 

EOU X»028C« 


004623 



4 

ST 

59 


004626 

OECA 

0736 





004827 



4 

BARF 

FIF3 


004830 

OECB 

200C 





004831 



4 

RECV 

0 


004832 

OECC 

B030 





004635 



4 

ST 



004836 

OECD 

60B0 





004837 

OECE 

30C0 





004838 



4 

LD 

59 




TITLE DCMC2* 

•REV A» 

CLA TEST (SAF) 
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004841 

004842 

OECF 

0638 

ft 

DEC 



004848 

004844 

QEDO 

5A5D 

ft 

BZT 

B1 


00484? 

004848 

QED1 

2702 

ft 

LOC 

FIF3 


004849 


029C 

FIF3 

EQU X«029C* 


004850 

004853 

0E02 

20EE 

ft 

B 

FIFE 


004854 



* 

.LOC 

B1 


004855 


029E 

61 EQU X»029E» 



004856 

00485? 

0ED3 

8030 

ft 

RECV 

0 


004860 

004861 

QED4 

6080 

ft 

ST 



004862 

004863 

QE05 

30C0 

ft 

IN 

5 


004864 

004867 

0E06 

B030 

ft 

ST 

60 


004868 

004871 

0ED7 

14D7 

ft 

LD 

20 


004872 

0ED8 

3C06 





004875 

004876 

0E09 

14CA 

* 

OR 

*1 


004879 

004880 

OEDA 

0107 

ft 

ST 

20 


004883 

004884 

otoe 

1480 

ft 

OUT 

2 

TURN ON XM1T 

004887 

004888 

OEDC 

3028 

ft 

WAIT 



004889 

OEDD 

8031 





004890 

004891 

OEOE 

0060 

ft 

RECV 

0 


004894 

004895 

oeof 

3060 

ft 

ST 



004896 

004897 

OEEO 

B030 

- ft 

WAIT 



004898 

0EE1 

COBO 





004899 

004900 

0EE2 

3100 

ft 

LOC 

5TP3 


004901 


02BE 

STP3 

EQU X»02BE» 


004902 

004905 

QEE3 

C600 

ft 

LD 

*0 


OO4906 

004907 

QEE4 

8030 

ft 

OUT 

2 


004910 

004911 

0EE5 

28BP 

* 

GNB 



004912 

004913 

0EE6 

3120 

ft 

WAIT 



004914 

004915 

0EE7 

B031 

ft 

NOP 



004916 

004917 

0EE8 

0001 

ft 




004918 



ft 

CHANNEL PROOGRAM FOR 

BROADBAND LQOP(XMJT) 

004919 



ft 

ADAPTER READY 6 UNDERRUN 

OVERRUN TEST 

004920 



ft 




004921 



ft 




004922 



ft 

ORG 

X»400* 


004923 


0EE9 

CHLP6A EQU 

s 


004924 

004927 

0EE9 

0602 

ft 

LD 

2 

. GEX Ll.NJfe..CQNFXGUMATlON 

004928 

004929 

OEEA 

B030 

ft 

OUT 

6 

OUTPUI IT 

004932 

004933 

0EE6 

3806 

ft 

LD 

24 


004936 

004937 

OEEC 

18BD 

ft 

OUT 

4 


004940 

004941 

OEEO 

3030 

ft 

WAIT 



004942 

004943 

OEEE 

BD31 

ft 

IN 

5 

CHECK. BUFFER EMPTY BIT 

004944 

OEEF 

OOBO 





004947 

004948 

OEFO 

3014 

ft 

AND 

sX»04» 


004951 

004952 

0EF1 

C404 

ft 

BZT 

BEPY 


004953 

004956 

0EF2 

5027 

* 

LO 

sX * 11 • 


004957 

004960 

0EF3 

04C6 

ft 

ST 

62 


004961 

004964 

0fcF4 

1107 

ft 

LOC 

BEPY 


004965 


0419 

BEPY 

EQU X*0419• 


004966 

004967 

0EF5 

3EC6 

ft 

LO 

s3 


004970 



ft 

LOC 

XMBB 


004971 


041B 

XMBB 

EQU X»041B» 


004972 



ft 

ST 

59 


004973 

004976 

0EF6 

0307 

ft 

LD 

24 

LOAD SYNC. CHAR 

004977 

004980 

0EF7 

3806 

ft 

SEND 

0 

SEND IT 

004981 

0EF8 

i860 





004984 

004985 

0EF9 

3040 

ft 

LD 

59 

DO SIX TIMES 

004988 

004989 

OEFA 

063B 

ft 

DEC 



004990 

004991 

OEFB 

5A5D 

ft 

BZT 

SDBB 


004994 

004995 

OEFC 

2705 

ft 

WAIT 



004996 

00499? 

OEFO 

BP31 

ft 

B 

XMBB 


004998 

005001 

OEFE 

0020 

ft 

LOC 

SDBB 


005002 


0420 

SDBB 

EQU X•042D* 


005003 

005004 

OEFF 

EEBO 

ft 

WAIT 



005005 

OFOO 

3100 





005006 

005009 

0F01 

06 IE 

ft 

LO 

30 


005010 

005011 

0F02 

5026 

ft 

BZF 

ORUO 



/ 'X 



<r 




41 


TITLE DCMC2» 

• REV A• 

CLA TEST (SAFI 



005014 

005015 

0F03 

48D6 

* 

ID 

20 

005016 

005019 

0F04 

14C4 

# 

AND 

*X»FD» 

005022 

005023 

0F05 

FDBD 

* 

OUT 

2 

005026 

005027 

0F06 

3028 

ft 

LD 

= 58 

005030 

005031 

0F07 

C63A 

ft 

LOC 

PGCX 

005032 


043E 

PGCX 

EQU X*043E* 

005033 

005036 

0F06 

D73B 

ft 

ST 

59 

005037 

005036 

0F09 

BD30 

ft 

LD 


005039 

005040 

0F0A 

AOBD 

ft 

SEND 

0 

005043 

005044 

OFOB 

3040 

ft 

LD 

59 

005047 

005046 

OFOC 

D63B 

ft 

DEC 


005049 

005050 

OFOD 

5A5D 

ft 

B2T 

ALD 

005053 

005054 

OFOE 

2702 

ft 

' B 

PGCX 

005057 

005058 

OFOF 

20F0 

ft 

LOC 

ALD 

005059 


044E 

ALD EQU X*044E» 

005060 

005061 

0F10 

BD30 

ft 

IN 

5 

005064 

005065 

OF 11 

14C4 

ft 

AND 

*X»Q4» 

005068 

005069 

0F12 

045D 

ft 

BZF 

BEPY1 

005072 

005073 

0F13 

2604 

ft 

LD 

«X*22» 

005076 

005077 

OF 14 

C622 

ft 

ST 

62 

005080 

005061 

OF 15 

D73E 

ft 

LOC 

BEPY1 

005062 


045A 

BEPY1 

EQU X»Q45A« 

005083 

005086 

OF 16 

C646 

ft 

LD 

= 70 

005087 



ft 

LOC 

AL76 

005088 


045C 

AL76 

EQU X«045C 

005089 

005092 

0F17 

073B 

ft 

ST 

59 

005093 • 
005094 

OF 18 

BD30 

ft 

LD 


005095 

005096 

OF 19 

AOBD 

ft 

SEND 

0 

005099 

005100 

OF 1A 

3040 

ft 

LD 

59 

005103 

005104 

0F1B 

D63B 

ft 

DEC 


005105 

005106 

0F1C 

5A5D 

ft 

BZT 

AL77 

005109 

005110 

0F1D 

2706 

ft 

BART 

AL76 

005.1U 

005112 

OF IE 

01BD 

ft 

lsLA.IT 


005113 

005114 

OF IF 

3100 

ft 

B 

TRCV 

005117 

005118 

0F2O 

2004 

ft 

LOC 

AL77 

005119 


0470 

AL77 

EQU X»0470* 

005120 

005123 

0F21 

C6FF 

ft 

LD 

=X»FF» 

005124 

005127 

0F22 

D73C 

ft 

ST 

60 

005128 



ft 

LOC 

TRCV 

005129 


0474 

TRCV 

EQU X*0474* 

005130 



ft 

LD 

20 

005133 

005134 

0F23 

D614 

ft 

AND 

=X»FC 

005137 

005136 

0F24 

C4FC 

ft 

OUT 

2 

005139 

005142 

0F25 

BD30 

ft 

B 

ALD1 

005143 

005146 

0F26 

2820 

ft 

LOC 

ORUD 

005147 


047D 

ORUD 

EQU X*047D* 

005148 

005149 

0F27 

4386 

ft 

C 

=X»F» 

005152 

0F28 

0F10 




005153 

005154 

0F29 

9741 

ft • 

BEF 

OVR 

005155 

0F2A 

9641 




005158 

005159 

0F2B 

261A 

ft 

LD 

20 

005162 

005163 

0F2C 

D614 

ft 

AND 

=X*FE» 

005166 

005167 

0F2D 

C4FE 

ft 

ST 

20 

005170 

005171 

0F2E 

D714 

ft 

OUT 

2 

005172 

0F2F 

BD30 




005175 

005176 

0F3O 

28BD 

ft 

WAIT 


005177 

005178 

0F31 

3100 

* 

LD 


005179 

005180 

0F32 

BD30 

ft 

SEND 

0 

005181 

0F33 

AOBD 




005164 

005185 

0F34 

3040 

ft 

GNB 


005186 

0F35 

BP31 




005187 

005188 

0F36 

2QBD 

ft 

WAIT 


005189 

005190 

0F37 

3100 

ft 

B 

ALD1 

005193 

005194 

0F38 

2020 

ft 




PAGE 


check buffer empty BIT 


TURN UFF XMH AND RECV. 


TURN UFF XMIT 



TITLE DCMC2* 

•REV A* 

CLA TEST (SAF) 
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005195 



* 




005196 



ft 

LOC 

OVR 


005197 


04AO 

OVR EQU X * 04A0 * 


005198 



# 

to 



005199 

0F39 

BD30 





005200 



ft 

SEND 

0 


005201 

0F3A 

AOBD 





005204 

0F3B 

3040 





005205 



ft 

BART 

OVR 


005206 



ft 

LD 

=74 


005207 

0F3C 

01C6 





005210 



ft 

LOC 

CNT 


005211 


04A9 

CNT EQU X*04A9• 


005212 



# 

ST 

30 


005215 

OF 30 

4AD7 





005216 



ft 

BARF 

ROTR 


005217 

0F3E 

1E20 





005220 



ft 

LO 



005221 

0F3F 

OCBD 





005222 

0F40 

30A0 





005223 



ft 

SENO 

0 


005224 

0F41 

6030 





005227 



ft 

LO 

30 


005228 

OF 42 

4006 





005231 



* 

62 T 

OVCK 


005232 

0F43 

1E5D 





005235 

0F44 

2703 





005236 



ft 

OEC 



005237 



ft 

LOC 

ROTR 


005238 


04B9 

ROTR 

EQU X *0469• 


005239 



ft 

6 

CNT 


005240 

0F45 

5A20 





005243 



ft 

LOC 

OVCK 


005244 


04BB 

OVCK 

EQU X»046B» 


005245 



ft 

IN 

5 


005246 

OF 46 

eebd 





005249 

0F47 

3014 





005250 



ft 

ST 

60 


005253 

0F48 

073C 





005254 



ft 




005255 



ft 




005256 



ft 

LOC 

ALOI 


005257 


04C0 

AL01 ' 

EQU X»04C0» 


005258 



ft 

LO 

20 


005261 

0F49 

0614 





005262 



ft 

ANO 

*X»FE* 


005265 

0F4A 

C4FE 





005266 



ft 

ST 

20 


005269 

0F4B 

0714 





005270 



ft 

OUT 

2 


005271 

0F4C 

B030 





005274 



ft 

GNB 



005275 

0F4Q 

28B0 





005276 

0F4E 

3120 





005277 



ft 

LOC 

TAMPA 


005278 


04CC 

TAMPA 

EQU X*04CC* 


005279 



ft 

WAIT 



005280 

0F4F 

B031 





005281 



ft 

B 

TAMPA 


-G6&2&2 

JDF5Q 

om 





005285 



ft 

NOP 



005286 

0F51 

FB01 





005287 



ft 




005288 



ft 




005289 



ft 

CHANNEL PROGRAM FOR 

STOP 1/O(BROADBAND RECV.) 

005290 



ft 




005291 



ft 




005292 



ft 

QRG 

X* 200 • 


005293 


0F52 

CHLP7 

EQU 

s 


005294 



ft 

LD 

24 

GET LINE SPEED <A$YNC> OR SYNC CHAR (SYNC) 

005297 

0F52 

0618 





005298 



ft 

OUT 

4 

OUTPUT IT 

005299 

OF 5 3 

B030 





005302 



• ft 

LO 

20 


005303 

0F54 

3006 





005306 



ft 

OUT 

2 


005307 

0F55 

14BD 





005310 

0F56 

3028 





005311 



ft 

WAIT 



005312 

OF 57 

B031 





005313 



ft 

LOC 

SINKl 


005314 


020D < 

SiNKl 

EQU X*0200* 


005315 



ft 

RECV 

0 

INPUT 1ST SYNC* 

005316 

0F58 

OOBO 





005319 

0F59 

3060 





005320 



ft 

WAIT 



005321 

0F5A 

6031 





005322 



ft 

RECV 

0 

INPUT 2ND SYNC* 

005323 

0F5B 

OOBO 





005326 

0F5C 

3060 





005327 



* 

C 

24 


005330 

0F5D 

9618 





005331 

0F5E 

1097 





005332 



ft 

BET 

NSYK1 


005333 

0F5F 

4196 





005334 

0F60 

4127 





005337 



ft 

LO 

20 


005338 

0F61 

0ED6 





005341 



ft 

ANO 

*X»FO» 


005342 

0F62 

14C4 





005345 



ft 

OUT 

2 


005346 

0F63 

FOBD 





005349 

0F64 

3028 





005350 



ft 

LO 

20 


005353 

0F65 

0614 





005354 



ft 

OUT 

2 


005355 

0F66 

6030 





005358 



ft 

6 

SINKl 


005359 

0F67 

2820 





005362 



* 

LOC 

NSYK1 


005363 


0220 

NSYKi 

EQU X*0220* 


005364 



ft 

WAIT 



005365 

0F68 

EOBD 










TITLE DCMC21 *REV A* 


CLA TEST (SAF > 
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005366 

005367 

0F69 

3100 

* 

RECV 

0 


005366 

005371 

0F6A 

B030 

* 

LOC 

LKB1 


005372 


0233 

LKB1 

EQU X»0233 * 


005373 

005374 

0F6B 

60BD 

# 

WAIT 



005375 

005376 

0F6C 

3100 

* 

RECV 

0 


005377 

005380 

0F60 

B030 

* 

C 

sX«DB' 


005381 

0F6E 

6086 





005384 

0F6F 

DB1Q 





005385 

005386 

0F70 

9741 

4 

BEF 

LKB1 


005387 

0F71 

9641 





005390 

005391 

0F72 

26F1 

4 

WAIT 



005392 

005393 

0F73 

BD31 

4 

LOC 

T2SA 


005394 


0245 

T25A 

EQU X»0245» 


005395 

005396 

OF 74 

OOBD 

4 

RECV 

0 


005399 

005400 

0F75 

3060 

4 

ST 



005401 

0F76 

B030 





005402 

005403 

0F77 

CODE 

4 

BLCT 

KER 


005404 

005407 

0F78 

6327 

4 

BART 

T25A 


005408 

005409 

0F79 

0601 

4 

WAIT 



005410 

005411 

0F7A 

BP31 

4 

B 

T25A 


005412 

005415 

0F7B 

0020 

4 

LOC 

KER 


005416 


0255 

KER 

EQU X»0255* 



005417 

005418 

0F7C 

F0C6 

4 

LD 

so 


005421 

005422 

0F7D 

OOBD 

4 

OUT 

2 


005425 

005426 

0F7E 

3028 

4 

GNB 



005427 

005428 

0F7F 

BD31 

4 

WAIT 



005429 

0F80 

20BD 





005430 

005431 

0F81 

3100 

4 

B 

5 INK 1 


005434 

005435 

0F82 

20AB 

4 

NOP 



005436 



4 




005437 



4 




005436 



4 




005439 



4 




005440 



4 

CHANNEL PROGRAM FOR STOP 

I/O (BROADBAND XMlj) 

005441 



4 




005442 



4 




005443 

005444 

0F83 

0100 

4 

ORG 

X * 400• 


Q0.5445 


0J84 

CHLP7A Efiii 1 



005446 

005449 

0F84 

1)602 

4 

LD 

2 

GET LINE CONFIGURATION 

005450 

005451 

OF 8 5 

BD30 

4 

OUT 

6 

OUTPUT IT 

005454 

005455 

0F86 

38C6 

4 

LD 

sX»AA» 


005458 

005459 

0F87 

AABD 

4 

OUT 

4 


005462 

005463 

0F88 

3030 

4 

WAIT 



005464 

005465 

0F89 

BD31 

4 

LD 

86 


005466 

005469 

0F8A 

00C6 

4 

LOC 

XMWW 


005470 


040F 

XMWW 

EQU X'04QF» 


005471 

005472 

0F8B 

06D7 

4 

ST 

63 


005475 

005476 

QF8C 

3FD6 

4 

LD 

24 

LOAD SYNC. CHAR 

005479 

005480 

0F8D 

18BD 

4 

SEND 

0 

SEND IT 

005483 

005484 

0F8E 

3040 

4 

LD 

63 

DO SIX TIMES 

005487 

005488 

0F8F 

D63F 

4 

DEC 



005489 

005490 

0F90 

5A5D 

4 

BZT 

SDWW 


005493 

005494 

0F91 

2705 

4 

WAIT 



005495 

005496 

0F92 

BD31 

4 

B 

XMWW 


005497 

005500 

0F93 

0020 

4 

LOC 

5DWW 


005501 


0421 

SOWN 

EQU X*0421 

f 


005502 

005503 

0F94 

EEBD 

4 

WAIT 



005504 

005505 

0F95 

3100 

4 

LD 

«X»DB» 


005508 

005509 

0F96 

C6DB 

4 

SEND 

0 


005510 

005513 

0F97 

BD 30 

4 

WAIT 



005514 

0F98 

40BD 





005515 

005516 

0F99 

3100 

4 

LOC 

T25B 


005517 


042C 

T25B 

EQU X»042C* 


005518 

005519 

0F9A 

BD30 

4 

LD 



005520 

005521 

0F9B 

AOBD 

4 

SEND 

0 


005524 

005525 

0F9C 

3040 

4 

BART 

T25B 


005526 



4 

WAIT 





TITLE DCMC2 % 

♦REV A* 

CLA TEST (SAF) 
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005527 

QF9D 

01 BP 





005526 

0F9E 

3100 





005529 



# 

toe 

HANG 


005530 


0436 

HANG 

EOU X»0436* 


005531 



ft: 

LD 



005532 

0F9F 

BD30 





005533 



ft 

SEND 

0 


005534 

OF AO 

AOBD 





005537 

0FA1 

3040 





005538 



ft 

BLCT 

ERR 


005539 

0FA2 

DE63 





005542 

0FA3 

2705 





005543 



ft 

WAIT 



005544 

OF A4 

BD31 





005545 



ft 

B 

HANG 


005546 

0FA5 

0020 





005549 



ft 

LOC 

ERK 


005550 


0445 

ERR 

EOU X* 0445 * 



005551 



ft 

WAIT 



005552 

OF A6 

F1BD 





005553 

0FA7 

3100 





005554 



ft 

LD 

20 


005557 

0FA8 

D614 





005556 



ft 

AND 

=X»FE* 


005561 

0FA9 

C4FE 





005562 



ft 

OUT 

2 


005563 

OF AA 

BD30 





005566 



ft 

GNB 



005567 

QFAB 

28BD 





005568 

OFAC 

3120 





005569 



ft 

WAIT 



005570 

OFAD 

BD31 





005571 



# 

B 

T25B 


005572 

OFAE 

0020 





005575 



ft 

NOP 



005576 

OFAF 

0501 





005577 



ft 




005578 



ft 




005579 



ft 

CHANNEL PROGRAM FOR 

character sue AND 

005580 



ft 

CRC 

:» PARITY TESTS 

(BROADBAND KELV.) 

005581 



ft 




005582 



ft 




005583 



ft 

ORG 

X*200* 


005584 


OFBO 

CHLP8 EOU S 



005585 



ft 

LD 

24 


005588 

OFBQ 

0618 





005589 



ft 

OUT 

4 

OUTPUT SYNC. CHARACTER 

005590 

0FB1 

B030 





005593 



ft 

LO 

20 


005594 

0FB2 

3006 





005597 



ft 

OUT 

2 

OUTPUT LINE CONTROL 

005598 

0FB3 

14BD 





005601 

0FB4 

3028 





005602 



ft 

WAIT 



005603 

0FB5 

B031 





005604 



ft 




005605 



ft 

LOC 

SYCH 

GET IN RECV. IN SyNC. 

005606 


0200 

SYCH 

EQU X*020D* 


005607 



* 

RECV 

0 


005608 

0FB6 

0080 





005611 

0FB7 

3060 





005612 



ft 

BART 

5CY2 


005613 



ft 

WAIT 



005614 

0FB8 

01BD 





005615 

0FB9 

3100 





005616 



ft 

LOC 

SCY2 


005617 


0214 

SCY2 

EQU X*0214* 


005618 



ft 

RECV 

0 


005619 

OFBA 

BD30 





005622 



ft 

C 

28 


005623 

OFBB 

6096 





005626 

OFBC 

1C1Q 





005627 

OFBD 

9741 





005628 



ft 

BET 

SYC 


005629 

OFBE 

9641 





005632 

OFBF 

2705 





005633 



ft 

SFS 



005634 

OFCO 

B031 





005635 



ft 

B 

SYCH 


005636 

OFCi 

4020 





005639 



ft 

LOC 

SYC 


005640 


0225 

SYC 

EQU X»0225» 



005641 



ft 

BART 

SCY1 


005642 

0FC2 

E801 





005643 



ft 

WAIT 


1 

005644 

0FC3 

BD31 





005645 



ft 

LOC 

SCY l 


005646 


0229 

SCY1 

EQU X»0229» 


005647 



ft 

RECV 

0 


005648 

0FC4 

OOBO 





005651 

0FC5 

3060 





005652 



ft 

C 

*X*19* 

CHECK FOR START Of MESSAGE SHAH. 

005655 

0FC6 

8619 





005656 

0FC7 

1097 





005657 



ft 

BEF 

SYC 


005658 

0FC8 

4196 





005659 

0FC9 

4126 





005662 



ft 




005663 



* 

LO 

24 


005664 

OFCA 

F0D6 





005667 



ft 

C 

*X*32» 


005668 

OFC0 

1886 





005671 

OFCC 

3210 





005672 

OFCO 

9741 





005673 



ft 

BET 

CPKT 

IF EQUAL GO TO CRe AND PARITY ROUTINES 

005674 

OFCE 

9641 





005677 

OFCF 

2760 





005678 



ft 




005679 



ft 

LO 

2 

START OF CHAK. SIZE TEST 

005682 

OF DO 

0602 





005683 



ft 

B2T 

FVBC 

BRANCH TO FIVE Bit CHAR. OUTPUT LOOP 

005684 

0FD1 

5027 





005687 



ft 

C 

sX»40» 
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TITLE PCMC2* 

•KEV A* 

CLA TEST (SAF) 



005686 

0FP2 

3686 




005691 

0FP3 

4010 




005692 

0FP4 

9741 




005693 



ft 

BEF 

NFBA 

005694 

0FD5 

9641 




005697 

QFP6 

2619 




005698 



* 

LOC 

SXBC 

005699 


024E 

5XBC 

EQU X»024E» 

005700 



ft 

BART 

SXB1 

005701 



ft 

WAIT 


005702 

0FD7 

01 BO 




005703 

0FD8 

3100 




005704 



ft 

LOC 

SXB1 

005705 


0252 

SXB1 

tQU X*0252* 

005706 



ft 

RECV 

2 

005707 

OF 09 

BD30 




005710 



ft 

C 

30 

005711 

OFDA 

7096 




005714 

OFDB 

1E10 




005715 

OFDC 

9741 




005716 



ft 

BET 

SXBC 

005717 

OFDO 

9641 




005720 

ofde 

27F0 




005721 



ft 

~ ST 


005722 

OFDF 

B030 




005723 



ft 

BLCT 

EXT 

005724 

OFEO 

COPE 




005725 

0FE1 

6327 




005728 



ft 

B 

SXBC 

005729 

0FE2 

7F20 




005732 



ft 



005733 



ft 

LOC 

NFBA 

005734 


0267 

NFBA 

EQU X•0267• 

005735 



ft 

BART 

NFVB 

005736 

0FE3 

E701 




005737 



ft 

WAIT 


005738 

0FE4 

B031 




005739 



ft 

LOC 

NFVB 

005740 


026B 

NFVB 

EQU X»026B» 

005741 



ft 

RECV 

2 

005742 

0FE5 

0060 




005745 

0FE6 

3070 




005746 



ft 

ST 


005747 

0FE7 

BD30 




005748 



ft 

BLCT 

EXT 

005749 

CFE8 

COPE 




005750 

0FE9 

6327 




005753 



ft 

B 

NFBA 

005754 

OFEA 

6F20 




005757 



ft 

LOC 

FVBY 

005758 


0277 

FVBY 

EQU X«0277« 

005759 



ft 

BART 

FVBC 

005760 

GFEB 

F001 




005761 



ft 

WAIT 


005762 

OFEC 

B031 




005763 



ft 

LOC 

FVBC 

005764 


027B 

FVBC 

EQU X»027B* 

005765 



ft 

RECV 

0 

005766 

OFEO 

OOBD 




005769 

OFEE 

3060 




005770 



ft 

C 

30 

005773 

OFEF 

96 IE 




005774 

OFFO 

1097 




005775 



ft 

BET 

FVBY 

005776 

0FF1 

4196 




005777 

0FF2 

4127 




005780 



* 

SI 


005781 

0FF3 

FOBP 




005782 

0FF4 

3OC0 




005783 



ft 

C 

sX«lE» 

005786 

OFFS 

861E 




005787 

0FF6 

1097 




005788 



ft 

BET 

TKF 

005789 

0FF7 

4196 




005790 

0FF8 

4127 




005793 



ft 

LOC 

TKFN 

005794 


0293 

TKFN 

EQU X*0293 * 

005795 



ft 

BLCT 

EXT 

005796 

0FF9 

06PE 




005797 

offa 

6327 




005800 



ft 

B 

FVBY 

005801 

0FF6 

4P20 




005604 



ft 

LOC 

TKF 

005805 


0299 

TKF EQU X*Q299* 

005806 



ft 

LP 

30 

005807 

OFFC 

PEP6 




005810 



ft 

ST 


005811 

OFFO 

1EB0 




005812 

OFFE 

30C0 




005813 



ft 

B 

TKFN 

005816 

OFFF 

20F3 




005817 



ft 

LOC 

CPRT 

005818 


02A0 

CPRT 

EQU X»02A0» 

005619 



ft 

LP 

23 

005822 

1000 

0617 




005823 



ft 

C 

si 

005826 

1001 

8601 




005827 

1002 

1097 




005628 



ft 

BET 

RE1A 

005829 

1003 

4196 




005830 

1004 

4127 




005633 



ft 

C 

»X»FO» 

005634 

1005 

1986 




005637 

1006 

F010 




005838 

1007 

9741 




005839 



ft 

BET 

RE2A 

005640 

1008 

9641 




005843 

1009 

2720 




005844 



ft 

LOC 

RE3A 

005845 


02B4 

RE3A 

EQU X'Q2B4» 

005846 



ft 

BART 

RE3 

005847 




WAIT 


005848 

100A 

01 BP 







TITLE DCMC2* 

•REV A* 

CLA TEST (SAF) 
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005849 

1008 

3100 




005850 



ft 

LQC 

RES 

005851 


0288 

RES 

EOU X*0268• 

005852 



ft 

RECV 

3 

005853 

100C 

8030 




005856 



* 

5T 


005657 

1000 

7880 




005658 

100E 

30C0 




005859 



ft 

8LCT 

EXT 

005860 

100F 

0E63 




005863 

1010 

2722 




005664 



* 

6 

RE3A 

005867 

1011 

20F0 




005668 



ft 

LOC 

RE1A 

005669 


02C4 

RE1A 

EQU X»02C4i 

005870 



ft 

8 ART 

RE1 

005871 



* 

WAIT 


005872 

1012 

0180 




005873 

1013 

3100 




005874 



* 



005875 



ft 

LOC 

RE1 

005876 


02C8 

RE1 

EOU X*02C8• 

005877 



ft 

RECV 

1 

005878 

1014 

8030 




005681 



ft 

ST 


005682 

1015 

68B0 




005683 

1016 

30C0 




005884 



ft 

8LCT 

EXT 

005885 

1017 

0E63 




005686 

1018 

2712 




005689 



* 

8 

RE1A 

005692 

1019 

20F0 




005893 



* 

LOC 

RE2A 

005894 


0204 

RE2A 

EOU X»0204» 

005895 



ft 

BART 

RE2 

005896 



* 

WAIT 


005897 

101A 

0180 




005898 

1018 

3100 




005899 



* 



005900 



ft 

LUC 

RE2 

005901 


0208 

RE2 

EOU X'0208• 

005902 



* 

RECV 

2 

005903 

101C 

6030 




005906 



* 

ST 


005907 

1010 

7080 




005908 

101E 

30C0 




005909 



* 

BLCT 

EXT 

005910 

101F 

0E63 




005913 

1020 

2702 




005914 



ft 

8 

RE2A 

005917 

1021 

20F0 




005918 



# 



005919 



# 

LOC 

EXT 

005920 


02E4 

EXT 

EQU X•0 2 E4 * 

005921 



ft 

LO 

*0 

005924 

1022 

C600 




005925 



ft 

OUT 

2 

005926 

1023 

6030 




005929 



ft 

GNB 


005930 

1024 

mo 




005931 

1025 

3120 




005932 



ft 

WAIT 


005933 

1026 

6031 




005934 



* 

NOP 


005935 

1027 

0001 




005936 



ft 



005937 



ft 



005938 



* 

CHANNEL PROGRAM FOR CHARACTER SIZE ANO 

005939 



ft 

CRCtPARITY TESTS (BRQADBANO XMIT) 

005940 



* 



005941 



* 



005942 



ft 

ORG 

X * 400 * 

005943 


1028 

CHLP8A EOU 3 


005944 



* 

LO 

2 GET LINE CONFIGURATION 

005947 

1028 

0602 




005946 



* 

OUT 

6 OUTPUI IT 

005949 

1029 

8030 




005952 



ft 

LO 

*X»FF» 

005953 

102A 

38C6 




005956 



ft 

OUT 

4 

005957 

1028 

FF60 




005960 

102C 

3030 




005961 



* 

ST 

28 

005964 

1020 

D71C 




005965 



* 

WAIT 


005966 

102E 

6031 




005967 



ft 

LO 

24 

005968 

102F 

0006 




005971 



ft 

C 

»X*32* 

005972 

1030 

1886 




005975 

1031 

3210 




005976 

1032 

9741 




005977 



ft 

BET 

248 

005978 

1033 

9641 




005981 

1034 

273C 




005982 



ft 

LO 

®X»1F» 

005985 

1035 

C61F 




005986 



* 

ST 

27 

005989 

1036 

0718 




005990 



« 

ST 

28 

005993 

1037 

071C 




005994 



ft 

LO 

2 

005997 

1038 

0602 




005998 



ft 

B2T 

247 

005999 

1039 

5027 




006002 



ft 

C 

*X»40» 

006003 

103A 

2686 




006006 

1036 

4010 




006007 

103C 

9741 




006008 



.ft 

BEF 

N611 

006009 

1030 

9641 




006012 

103E 

2609 




006013 



ft 

LO 

sX*3F» 








TITLE DCMC2* 'REV A* 


CLA TEST (SAP) 
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006016 

103F 

C63F 




006017 



4 

ST 

28 

006020 

1040 

D71C 




006021 



* 

SR 


006022 



4 

ST 

27 

006023 

1041 

5407 




006026 



# 

0 

24 7 

006027 

1042 

1B20 




006030 



4 

LOO 

N6U 

006031 


0437 

N611 

EQll X • 0437 • 

006032 



4 

0 

= X'80 

006033 

1043 

1986 




006036 

1044 

8010 




006037 

1045 

9741 




006038 



4 

BEF 

N7U 

006039 

1046 

9641 




006042 

1047 

2609 




006043 



4 

LO 

= X'7F 

006046 

1048 

C67F 




006047 



4 

ST 

28 

006050 

1049 

071C 




006051 



4 

SR 


006052 



4 

ST 

27 

006053 

104A 

54D7 




006056 



4 

0 

247 

006057 

104b 

1B20 




006060 



4 

LOO 

N711 

006061 


0449 

N711 

EUU X'0449' 

006062 



4 

LO 

sX'FF 

006063 

104C 

07C6 




006066 



4 

ST 

28 

006067 

1040 

FF07 




006070 



4 

SR 


006071 

104E 

1C54 




006072 



4 

ST 

27 

006075 

104F 

071B 




006076 



4 



006077 



* 4 

LOO 

247 

006078 


0450 

247 

EQU X'0450* 


006079 



4 

LD 

28 

006082 

1050 

061C 




006083 



4 

ANO 

sX'FF 1 

006086 

1051 

C4FF 




006087 



4 

ST 

30 

006090 

1052 

071E 




006091 



4 

LOO 

248 

006092 


0456 

248 

EGO X'0456* 

006093 



4 

LD 

28 

006096 

1053 

061C 




006097 



4 

AND 

24 

006100 

1054 

D418 




006101 



4 

ST 

26 

006104 

1055 

0710 




006105 



4 



006106 



4 

LO 

s6 

006109 

1056 

0606 




006110 



4 

LOO 

222 

006111 


045E 

222 

EQU X'045E' 


006112 



4 

ST 

63 

QQ6JU5 

1057 

07 3 F 




006116 



4 

LD 

24 

006119 

1058 

0618 




006120 



4 

SEND 

0 

006121 

1059 

0030 




006124 



4 

LD 

63 

006125 

105 A 

4006 




006128 



4 

DEC 


006129 

1050 

3F5A 




006130 



4 

02 T 

232 

006131 

1Q5C 

5027 




006134 



4 

BART 

222 

006135 

1050 

0101 




006136 



4 

LOC 

232 

006137 


0460 

232 

EQU X'0460* 

006138 



4 

LO 

*X» 19 

006141 

105E 

0619 




006142 



4 

SEND 

0 

006143 

105F 

B030 




006146 



4 



006147 



4 

LD 

24 

006146 

1060 

4006 




006151 



4 

0 

*X'32 1 

006152 

1061 

1886 




006155 

1062 

3210 




006156 

1063 

9741 




006157 



4 

BET 

CPKTX 

006158 

1064 

9641 




006161 

1065 

2729 




006162 



4 

LD 

2 

006165 

1066 

0602 




006166 



4 

02 T 

2X21 

006167 

1067 

5027 




006170 



4 

LOC 

XPY2 

006171 


0481 

XPY2 

EQU X•0481 1 

006172 



4 

LD 


006173 

1068 

12B0 




006174 

1069 

30A0 




006175 



4 

AND 

27 

006178 

106A 

0410 




006179 



4 

SEND 

2 

006180 

1060 

0030 




006183 



4 

BLOT 

2EXT 

006184 

106C 

50DE 




006185 

1060 

6327 




006188 



4 

BART 

XPY2 

006189 

106E 

5001 




006190 



4 

WAIT 


006191 

106F 

0031 




006192 



4 

B 

XPY2 

006193 

1070 

0020 




006196 



4 



006197 



4 

LOC 

2X21 

006198 


0493 

2X21 

EQU X'0493* 
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004199 




* 

LD 


006200 

1071 

EEBP 





006201 

1072 

30A0 





006202 




* 

AND 

27 

00620$ 

1073 

0410 





006206 




* 

SEND 

0 

006207 

1074 

6030 





006210 




# 

BLCT 

ZEXT 

006211 

1075 

400E 





006212 

1076 

6327 





006215 




* 

BART 

ZXZ1 

006216 

1077 

4AQ1 





006217 




# 

WAIT 


006216 

1078 

6031 





006219 




* 

B 

ZXZ1 

006220 

1079 

0020 





006223 




* 



006224 




# 

LOC 

CPRTX 

006225 


04A5 


CPRTX 

EQU X•04A5 • 

006226 




# 

LD 

23 

006227 

1Q7A 

EED6 





006230 




# 

C 

si 

006231 

107B 

1786 





006234 

107C 

0110 





006235 

1Q7D 

9741 





006236 




# 

BET 

BBCR 

006237 

1Q7E 

9641 





006240 

107F 

2719 





006241 




# 

C 

*X«FO* 

006244 

1080 

86F0 





006245 

1081 

1097 





006246 




* 

BET 

BBPR 

006247 

1082 

4196 





006248 

1083 

4127 





006251 




* 



006252 




# 

LOC 

BBPCR 

006253 


0469 


BBPCR 

EQU X * 0409• 

006254 




# 

LD 


006255 

1084 

2060 





006256 

1085 

30A0 





006257 




* 

SEND 

3 

006258 

1086 

B030 





006261 




# 

BLCT 

ZEXT 

006262 

1087 

58DE 





006263 

1088 

6327 





006266 




* 

BART 

BBPCR 

006267 

1089 

2601 





006268 




* 

WAIT 


006269 

108A 

6031 





006270 




* 

6 

BBPCR 

006271 

108b 

0020 





006274 




* 



006275 




# 

LOC 

BBCR 

006276 


04C9 


BBCR 

EQU X•04C9 * 

006277 




* 

LO 


006278 

108C 

FOBD 





006279 

1080 

30A0 





006280 




# 

SEND 

1 

006281 

108E 

6030 





006284 




* 

BLCT 

JLEXI 

006285 

108F 

48DE 





006286 

1090 

6327 





006289 




* 

BART 

BBCR 

006290 

1091 

1601 





006291 




# 

WAIT 


006292 

1092 

6031 





006293 




# 

B 

BBCR 

006294 

1093 

0020 





006297 




# 



006296 




* 

LOC 

BBPR 

006299 


0409 


BBPR 

EQU X»0409» 

006300 




* 

LO 


006301 

1094 

FOBO 





006302 

1095 

30A0 





006303 




# 

SEND 

2 

006304 

1096 

B030 





006307 




# 

BLCT 

ZEXT 

006306 

1097 

500E 





006309 

1098 

6327 





006312 




* 

BART 

BBPR 

006313 

1099 

0601 





006314 




* 

WAIT 


006315 

109A 

6031 





006316 




* 

B 

BBPR 

006317 

1090 

0020 





006320 




# 



006321 




# 

LOC 

ZEXT 

006322 


04E9 


ZEXT 

EQU X 1 04E9 * 

006323 




# 

LO 

nO 

006324 

109C 

F0C6 





006327 




* 

SEND 

0 

006328 

1090 

0060 





006331 

109fc 

3040 





006332 




# 

SEND 

0 

006333 

109F 

6030 





006336 




# 

LO 

20 

006337 

10AQ 

4006 





006340 




# 

AND 

sX*FE» 

006341 

10A1 

14C4 





006344 




# 

OUT 

2 

006345 

10A2 

FEBD 





006348 

10A3 

3028 





006349 




# 

GN6 


006350 

10A4 

6031 





006351 




* 

WAIT 


006352 

10A5 

20B0 





006353 

10A6 

3100 





006354 




* 

NOP 


006355 




* 



006356 




* 

CHANNEL PROGRAM FOR MARK 6 SPACE (REC) 

006357 




* 



006358 




* 



006359 




# 

ORG 

X* 200 * 
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TITLE 0CMC2♦ *REV A* 


CLA TEST (SAF) 


PAGE 


006360 

10A7 

0100 





006361 


10A8 

CHLP9 

EQU 

S 


006362 



* " ■. 4 • 

LO 

2 

GET LINE CONFIG* 

006365 

10A6 

0602 





006366 



4 

OUT 

6 

OUTPUI IT 

006367 

10A9 

8030 





006370 



4 

LO 

sX*D* 

LOAD LINE SPtEO 

006371 

10AA 

38C6 





006374 



4 

OUT 

4 

OUTPUf IT 

006375 

10A8 

0080 





006376 

10AC 

3030 





006379 



4 

LO 

20 

GET LINE CONTROL 

006362 

10AD 

0614 • 





006383 



^ . 4 

OUT ; 



006384 

10AE 

8030 





006387 



4 

WAIT 



006388 

10AF 

2880 





006389 

1080 

3100 





006390 



4 

RECV 

0 


006391 

1081 

8030 





006394 



4 

ST 



006395 

1082 

6080 





006396 

1083 

30C0 





006397 



4 

, WAIT 



006398 

1084 

8031 





006399 



4 

LOC 

RAN 


006400 


0218 

RAN EQU X*0218* 


006401 



4 

RECV 

0 


006402 

1085 

0080 





006405 

1086 

3060 





006406 



4 

ST 



006407 

1087 

8030 





006406 



4 

82 F 

BINTA 


006409 

1088 

C05D 





006412 

1089 

260C 





006413 



4 

IN 

5 


006414 

108A 

8030 





006417 



4 

AND 

= 1 


006418 

1088 

14C4 





006421 



4 

82 T 

BINTA 


006422 

108C 

0150 





006425 

1080 

2704 





006426 



4 

LO 

*X*FE* 


006429 

108E 

C6FE 





006430 



4 

ST 

60 


006433 

1GBF 

D73C 





006434 



4 

LOC 

BINTA 


006435 


0230 

BINTA 

EQU X* 0230* 


006436 



4 

8LCT 

TONI 


006437 

10C0 

0E63 





006440 

10C1 

2705 





006441 



4 

WAIT 



006442 

10C2 

8031 





006443 



4 

8 

RAN 


006444 

10C3 

0020 





006447 



4 

LOC 

TONI 


006446 


0239 

TONI 

EQU X•0239* 


006449 



4 

LO 

50 


006450 

10C4 

E2C6 





004.4&3 



* 

OUT 

Z 


006454 

10C5 

QOBD 





006457 

10C6 

3028 





006458 



4 

GN8 



006459 

10C7 

8031 





006460 



4 

WAIT 



006461 

10C8 

20B0 





006462 

10C9 

3100 





006463 



4 

NOP 



006464 



4 




006465 



4 




006466 



4 

CHANNEL PROGRAM FOR MARK 

6 SPACE CXMIT) 

006467 



4 




006466 



4 




006469 



4 

ORG 

X * 400• 


006470 

10CA 

0100 





006471 


10C6 

CHLP9A EQU 

4 


006472 



4 

LOC 

CLRK 


006473 


0400 

CLRK 

EQU X* 0400* 


006474 



4 

LO* 

GET 

CHARALTER Tu SEND OUT 

006475 

10C8 

8030 





006476 



4 

C 

55 

CHECK TO SET MARK AND SPACE CONDITION 

006477 

10CC 

A086 





006480 

10C0 

0510 





006481 

10CE 

9741 





006482 



4 

BEF 

OENW 


006483 

10CF 

9641 





006486 

1000 

2608 





006487 



4 

LO 

20 

SET MARK OR SPACE CONDITION 

006490 

1001 

0614 





006491 



4 

OR 

26 


006494 

1002 

0A1A 





006495 



4 

ST 

20 


006498 

1003 

0714 





006499 



4 

OUT 

2 


006500 

1004 

8030 





006503 



4 

LO 

55 


006504 

10D5 

28C6 





006507 



4 

LOC 

OENW 


006508 


0417 

OENW 

EQU X•0417 * 


006509 



4 

C 

57 

CHECK TO RESET MARK AND SPACE CONDITION 

006310 

1006 

0586 





006513 

10D7 

0710 





006514 

1008 

9741 





006515 



4 

BEF 

BAMB 


006516 

1009 

9641 





006519 

10DA 

2622 





006520 



4 

LO 

20 

RESET MARK OK SPACE CONDITION 

006523 

1008 

0614 





006524 



4 

XOR 

26 


006527 

100C 

D81A 





006528 



4 

ST 

20 


006531 

1000 

0714 





006532 



4 

OUT 

2 
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TITLE DCMC2* »REV A* CLA TEST (SAP) 


006533 

10DE 

BD30 





006536 



* 

LD 

26 


006537 

10DF 

28D6 





006540 

006541 

10E0 

1 A 86 

* 

C 

sX»10* 

IF SPACE CONDITION CHECK FOR FRAMING ERROR 

006544 

10E1 

1010 





006545 

10E2 

9741 





006546 



ft 

BEF 

KUNTA 


006547 

10E3 

9641 





006550 

10E4 

260C 





006551 



4 

IN 

5 


006552 

10E5 

BD30 





006555 



ft 

AND 

si 

MASK OTHER BITS OUT 

006556 

10E6 

14C4 





006559 



ft 

BZT 

KUNTA 

BRANCH ON FRAMING ERROR SET 

006560 

10E7 

0150 





006563 

10E8 

2704 





006564 



ft 

LD 

=X»EE» 


006567 

10E9 

C 6 EE 





006566 



ft 

5T 

61 


006571 

10EA 

0730 





006572 



ft 

LOC 

KUNTA 


006573 


0440 

KUNTA 

EQU X*0440• 


006574 



ft 

LD 

*7 


006577 

10EB 

C607 

, 




006576 



ft 

LOC 

BAMB 


006579 


0442 

BAMB EQU X•0442 * 


006580 



ft 

SEND 

0 


006581 

10EC 

B030 





006584 



ft 

BLCT 

RAY 


006585 

10ED 

40DE 





006586 

10EE 

6327 





006589 



ft 

WAIT 



006590 

10EF 

05BD 





006591 

10FO 

3100 





006592 



ft 

B 

CLKK 


006595 

10F1 

20B2 





006596 



ft 

LOC 

RAY 


006597 


044E 

RAY EQU X»044E» 


006596 



ft 

WAIT 



006599 

10F2 

B031 





006600 



ft 

GNB 



006601 

10F3 

OOBD 





006602 

10F4 

3120 





006603 



ft 

LOC 

MARK 


006604 


0454 

MARK EQU X * 0454 * 


006605 



ft 

LD 

sX'FF* 


006606 

10F5 

C 6 FF 





006609 



ft 

SEND 

0 


006610 

10F6 

B030 





006613 



ft 

WAIT 



006614 

10F7 

40BD 





006615 

10F8 

3100 





006616 



ft 

B 

MARK 


006619 

10F9 

20F6 





006620 



ft 

NOP 



006621 


10FA 

CHLPIO 

EQU 

S 


006622 



ft 




006623 







05662.4 



ft 



170 FUNCTION CODES 

006625 



ft 




006626 

10FA 

0001 

FQMC 

DC 

X'l* 

output dlcp control 

006627 

10FB 

0003 

FOIL 

DC 

X * 3 * 

OUTPUT INTERRUPT CONTROL 

006626 

10FC 

0005 

FOCC 

DC 

X*5» 

OUTPUT CHANNEL CONTROL 

006629 

10FD 

0009 

FOLO 

DC 

X * 9 * 

OUTPUT ADDRESS AND RANGE 

006630 

10FE 

OOOB 

FOBL 

DC 

X»B* 

OUTPUT BYTE INTO LCT 

006631 

10FF 

OOOF 

FOCB 

DC 

X* F * 

OUTPUT CCB CONTROL 

006632 

1100 

OOOC 

FIR 

DC 

X*C» 

INPUT RANGE 

006633 

1101 

0018 

FIS 

DC 

X * 18 • 

INPUT STATUS 

006634 

1102 

001A 

FINS 

DC 

X * 1 A * 

INPUT NEXT STATUS 

006635 

1103 

001C 

FIDSS 

DC 

xuc* 

INPUT DATA SET STATUS 

006636 

1104 

001E 

FILS 

DC 

X* IE• 

INPUT LCI ATAfUS 

006637 

1105 

0026 

FID 

DC 

X»26» 

INPUT ID 

006638 



ft 




006639 



ft;::::: 


SSSSSSSSfS 


006640 



ft 



STORAGE CONSTANTS 

006641 



ft 




006642 

1106 

0000 

ARFG 

DC 

0 

ADAPTER READY TEST FLAG 

006643 

1107 

0000 

BYTP 

DC 

0 

BYTE OFFSET FUR VSCALLS 

006644 

1108 

0000 

CHANL 

DC 

0 


006645 

1109 

0000 

CHSZFG 

DC 

0 

CHARACTER SIZE TEST FLAG 

006646 

110A 

0000 

CHNZ 

DC 

0 


006647 

HOB 

0000 

COUNT 

DC 

0 


006648 

HOC 

0000 

cs 

DC 

0 

CHARACIER SIZE 

006649 

HOD 

0000 

CSB 

DC 

0 

CHARACTER SIZE INCLUDING START AND STOP BITS 

006650 

HOE 

0000 

CRCAC 

DC 

0 

CRC ACUMMULATOR 

006651 

110F 

0000 

CRCFG 

DC 

0 


006652 

1110 

0000 

0IV1 

DC 

0 

DIVISORS FOR TICKS TO MILLSEC SUB-ROUTINE 

006653 

1111 

0000 

DIV2 

DC 

0 


006654 

1112 

0000 

DIV3 

DC 

0 


006655 

1113 

0000 

DIV4 

DC 

0 


006656 

1114 

0034 

ERF 

DC 

52 


006657 

1115 

0000 

FBKG 

DC 

0 


006658 

1116 

0600 

FWFG 

DC 

0 

FIRMWARE PRINT FLAG 

006659 

1117 

0000 

HGSPD 

DC 

0 

HIGH SPEED FLAG 

006660 

1118 

0000 

HISPD 

DC 

0 


006661 

1119 

003C 

HRT 2 

DC 

60 

LINE FREQUENCY 

006662 

111A 

0000 

MASK 

DC 

0 


006663 

11 IB 

0000 

MSBS 

RESV 

2.0 

BITS/SEC 

006664 

HID 

0000 

PARFG 

DC 

0 

PARITY ERROR TEST FLAG 

006665 

111E 

0000 

PTTY 

DC 

0 

PARITY TYPE FLAG 

006666 

11 IF 

0000 

PSFG 

DC 

0 

SYNC* PRINT SPEED FLAG 

006667 

1120 

0000 

RANGE 

DC 

0 


006668 . 

1121 

0000 

RCRC 

DC 

0 

RECEIVE CRC ReSIDUE 

006669 

1122 

0000 

RLCTAD 

DC 

0 

RAM ADDRESS To READ 

006670 

1123 

0000 

RLCTRG 

DC 

0 

RANGE FOR READ FROM RAM 

006671 

1124 

0000 

RUNFG 

DC 

0 

OVERRUN AND UNDERRUN TEST FLAG 

006672 

1125 

0000 

TLOC 

DC 

0 

TEMPORARY LOCATION 

006673 

1126 

0000 

TPi 

DC 

0 


006674 

1127 

0000 

TP2 

DC 

0 


006675 

1128 

0000 

TRMRK 

DC 

0 


006676 

1129 

0000 

SBTFG 

DC 

0 

STOP BIT TIME TEST FLAG 

006677 

112A 

0000 

SHORT 

DC 

0 

TEST FLAG 
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006678 

1126 

0000 



STPFG 

DC 

0 

STOP I/O AND CHANNEL RESET FLAG 

006679 

112C 

0000 



WDBFG 

DC 

0 

BROADBAND TEST FLAG 

006680 

1121) 

0000 



XCRC 

DC 

0 

TRANSMIT CRC RESIDUE 

006681 

112E 

FFFF 



LCTV 

RESV 

3*-l 


I 006682 

1131 

0000 



ERAR 

RESV 

4*0 

ERROR ARRAY FOR 2V$C 

i 006683 





ft 




%. 006684 

1135 




SAV1 

RESV 

9+74JAF 


006683 

1145 




SAV2 

RESV 

9*74SAF 


006686 

1155 




SAV3 

RESV 

9+74JAF 


006687 

1165 




5AV4 

RE5V 

9+74JAF 


006688 





* 




006689 





ft:;:::: 




' 006690 





ft 




006691 





ft 


DEFINED CONSTANTS 

006692 





ft 




006693 

1175 

3108 



ASYN 

DC 

X • 3108 • 

ASYNC. ID 

006694 

1176 

3118 



A5YN1 

DC 

X* 3118* 

ASYNC. ID NEW BAUD RATE 

006695 

1177 

3110 



ASYNC 

PC 

X* 3110* 

CURRENT LOOP ASYNC. 

006696 

1178 

3158 



SYNC 

DC 

X*3158* 

SYNC. ID 

006697 

1179 

3150 



BISYNC 

DC 

X*3150» 

BISYNC. ID 

006698 

117A 

3160 



SYN188 

DC 

X * 3160• 

SYNC. MIL 188 ID 

006699 

1176 

3138 



WDB3 

DC 

X • 3138 * 

WIDEBAND WITH 301/303 

006700 

117C 

3130 



WDB36 

DC 

X•3130 • 

BJ-SYNC. WIDEBAND WITH 301/303 

006701 

1170 

3168 



WDBV35 

DC 

X* 3168 • 

WIDEBAND WITH V35 

006702 

117E 

3128 



WDBV5B 

DC 

X•3128 • 

BI-SYNC. WIDEBAND WITH V35 

006703 





ft 




006704 

117F 

8000 



BITO 

DC 

2*8000* 


006705 

1180 

4000 



BIT1 

DC 

2*4000* 


006706 

1181 

2000 



BIT2 

DC 

X* 2000 * 


006707 

1182 

0800 



6IT4 

DC 

X * 800 * 


006708 

1183 

0200 



BIT6 

DC 

X»200» 


006709 

1184 

0100 



BIT7 

DC 

X*100» 


006710 





ft 




006711 

1185 

A001 



CRC16 

DC 

2*A001 • 


006712 





ft 




006713 

1186 

0000 



ATLT 

RESV 

8*0 

ACTIVE LINE TABLE 

006714 





ft 




006715 

118E 

0000 



ADDRS 

RESV 

9*0 

LINE ADDRESS TABLE 

006716 





ft 




006717 

1197 

0117 



CPFLG 

DC 

X * 117 * 

LCT FLAG FOR CRC ONLY 

006718 

1198 

F017 




DC 

2*F017 * 

PARITY ONLY 

006719 

1199 

0017 




DC 

X * 017 * 

CRC AND PARITY 

006720 

119A 

0000 




DC 

0 


006721 





ft 




006722 

1190 

805C 



CRLF 

DC 

2 * 805C* 


006723 

119C 

2C00 



COMMA 

DC 

X • 2C00• 


006724 

1190 

005C 



BKLS 

DC 

X • 5C » 


006725 





ft 




006726 

U9E 

0001 

0203 

0405 

DOUT 

TEXT 

2* 000102030405060708090AOBOCODOEOF• 


HAl 

0607 

0809 

OAOB 







OCOD 

OEOF 






006727 

UA6 

1011 

1213 

1415 


TEXT 

2 » 101112131415161718191AIBICIDIEIF* 


11A9 

1617 

1819 

1A1B 





I 


1C1D 

1E1F 






1 006728 

11 At 

2021 

2223 

2425 

00UT1 

TEXT 

2*202122232425262728292A2B2C2D2E2F» 

V 

1161 

2627 

2829 

2A2B 







2C2D 

2E2F 






006729 

1166 

3031 

3233 

3435 


TEXT 

2»303132333435363738393A3B3C3D3E3F» 


1169 

3637 

3839 

3A3B 














006730 

U8E 

4041 

4243 

4445 


TEXT 

2*404142434445464748494A4B4C4D4E4F * 


lid 

4647 

4849 

4A4B 







4C4D 

4E4F 






006731 

UC6 

5051 

5253 

5455 


TEXT 

2'505152535455565758595A5B5C5D5E5F* 


11C9 

5657 

5859 

5A5B 







5C5D 

5E5F 






006732 

1 ICE 

6061 

6263 

6465 


TEXT 

2»606162636465666768696A6B6L6D6E6F» 


1101 

6667 

6869 

6A6B 







6C6D 

6E6F 






006733 

1106 

7071 

7273 

7475 


TEXT 

2*707172737475767778797A7B7C.7D* 


1109 

7677 

7879 

7A7B 







7C7D 







006734 

1100 

5555 



OFLT 

DC 

X » 5555 ' 

DEFAULT CHARACTER 

006735 





ft 




006736 

11DE 

0000 



FIVSEC 

DC 

0 

5 SECONDS OF TICK ON RTC 

006737 

UOF 

0000 



SECL 

DC 

0 


006738 

11E0 

0000 



5ECH 

DC 

0 


006739 





ft 




006740 

11E1 

0000 



FRIMRV 

DC 

0 

FIRMWARE REV NUMBER 

006741 





ft 




006742 





* LINE SPEED IS IN SECOND 

WORD FOR LOW AND MEDIUM 

006743 





4 SPEED LINES* FOR HIGH 

SPEED LINES THE TWO 

006744 





» WORDS ARE PUT TOGETHER 

FORMING A SINGLE HEX WORD 

006745 





4 CONSISTING OF 32 BITS. 


006746 





ft 




006747 

11E2 

0000 



SYLSPO 

RESV 

2*0 

SYNC. LINE 0 SPEED 

006748 

11E4 

0000 



SYLSP1 

RESV 

2*0 

SYNC. LINE 1 SPEED 

006749 

11E6 

0000 



SYL5P2 

RESV 

2*0 

SYNC. LINE 2 SPEED 

006750 

11E8 

0000 



SYLSP3 

RESV 

2*0 

SYNC. LINE 3 SPEED 

006751 

11EA 

0000 



5YLSP4 

RE5V 

2*0 

SYNC. LINE 4 SPEED 

006752 

11EC 

0000 



SYLSP5 

RESV 

2*0 

SYNC. LINE 5 SPEED 

006753 

11EE 

0000 



SYLSP6 

RESV 

2*0 

SYNC. LINE 6 SPEED 

006754 

11F0 

0000 



SYLSP7 

RESV 

2*0 

SYNC. LINE 7 SPEED 

006755 





ft 




006756 

11F2 

OOOA 



NSPTBL 

DC 

10 


006757 

11F3 

OOOF 




DC 

15 


006758 

11F4 

0016 




DC 

22 


006759 

11F5 

001B 




DC 

27 


006760 

UF6 

001E 




DC 

30 


006761 

1IF7 

0028 




DC 

40 


006762 

11F8 

003C 




DC 

60 


006763 

UF9 

0078 




DC 

120 


■ 006764 

UFA 

0002 




DC 

210 


1 006765 

11F6 

OOFO 




DC 

240 


006766 

11FC 

0168 




DC 

360 


006767 

UFO 

0190 




DC 

400 


006768 

11FE 

01E0 




DC 

480 


006769 

UFF 

03C0 




DC 

960 


006770 

1200 

0780 




DC 

1920 


006771 

1201 

OFOO 




DC 

3840 


006772 





ft 




006773 

1202 

OOOA 



OSPTBL 

DC 

10 


006774 

1203 

OOOF 




DC 

15 




TITLE DCMC2« *REV A* CLA TEST (SAF) 


006775 

1204 

0016 


DC 

22 

006776 

1205 

001B 


DC 

27 

006777 

1206 

001E 


DC 

30 

006778 

1207 

003C 


DC 

60 

006779 

1208 

0078 


DC 

120 

006780 

1209 

00B4 


DC 

180 

006781 

120A 

OOFO 


DC 

240 

006782 

120B 

0168 


DC 

360 

006783 

120C 

01E0 


DC 

480 

006784 

120D 

02D0 


DC 

720 

006785 

120E 

03C0 


DC 

960 

006786 

120F 

05A0 


DC 

1440 

006787 

1210 

0780 


DC 

1920 

006788 

1211 

0000 


DC 

0 

006789 




* 


006790 

1212 

0032 


ALSPBL DC 

50 

006791 

1213 

004B 


DC 

75 

006792 

1214 

006E 


DC 

110 

006793 

1215 

0087 


DC 

135 

006794 

1216 

0096 


DC 

150 

006795 

1217 

012C 


DC 

300 

006796 

1218 

0258 


DC 

600 

006797 

1219 

0384 


DC 

900 

006798 

121A 

04B0 


DC 

1200 

006799 

1216 

0708 


DC 

1800 

006800 

121C 

0960 


DC 

2400 

006801 

12 ID 

0E10 


DC 

3600 

006802 

121E 

12C0 


DC 

4800 

006803 

121F 

1C20 


DC 

7200 

006804 

1220 

2580 


DC 

9600 

006805 




# 


006806 

1221 

0032 


CMSPBL DC 

50 

006807 

1222 

004B 


DC 

75 

00680$ 

1223 

006E 


DC 

110 

006809 

1224 

0087 


DC 

135 

006810 

1225 

0096 


DC 

150 

006811 

1226 

00C8 


DC 

200 

006812 

1227 

012C 


DC 

300 

006813 

1228 

0258 


DC 

600 

006814 

1229 

041A 


DC 

1050 

006815 

122A 

04B0 


DC 

1200 

006816 

122B 

0708 


DC 

1800 

006817 

122C 

07D0 


DC 

2000 

006818 

122D 

0960 


DC 

2400 

006819 

122E 

12C0 


DC 

4800 

006820 

122F 

2580 


DC 

9600 

006821 

1230 

4B00 


DC 

19200 

006822 




# 


006823 

1231 

0021 


SBITBL DC 

33 

006824 

1232 

QQ1E 


DC 

30 

006825 

1233 

0020 


DC 

32 

006826 

1234 

001E 


DC 

30 

006827 




* 


006828 

1235 

0018 


TLTBLA DC 

X»18* 

006829 

1236 

6078 


DC 

X * 6078 * 

006830 

1237 

8098 


DC 

Z * 8098 * 

006831 

1238 

E0F8 


DC 

2 * E0F8 * 

006832 




* 


006833 

1239 

BOBO 


TLTBLC DC 

Z *BOBO * 

00J6834 

123.4. 

FOFO 


DC. 

Z.IFOEQ* 

006835 

123B 

BOBO 


DC 

Z'BOBO* 

006836 

123C 

FOFO 


DC 

Z * FOFO * 

006837 




# 


006838 

123D 

0111 


TLTBLS DC 

X'lil* 

006839 

123E 

6171 


DC 

X * 6171 * 

006840 

123F 

8191 


DC 

Z*819l» 

006841 

1240 

E1F1 


DC 

Z'EIFI* 

006842 




# 


006843 

1241 

OQEO 


TLUWB3 DC 

X'EO* 

006844 

1242 

10F0 


DC 

X'OlOFO' 

006845 




# 


006846 

1243 

0060 


TLUV35 DC 

X' 60 * 

006847 

1244 

90F0 


DC 

Z'90F0» 

006848 




* 


006849 

1245 

2020 


SPACE DC 

Z 9 2020» 

006850 




* 


006851 

1246 

0020 


TLUTB2 DC 

X * 20 f 

006852 

1247 

4060 


DC 

X * 4060 * 

006853 

1248 

0020 


DC 

X * 20* 

006854 

1249 

4060 


DC 

X»4Q6Q» 

006855 

124A 

0010 


DC 

X* 10* 

006856 

1246 

4050 


DC 

X»4050* 

006857 

124C 

0010 


DC 

X* 10* 

006858 

124D 

4050 


DC 

X * 4050 * 

006859 

124E 

0000 


DC 

0 

006860 

124F 

0040 


DC 

X * 40 • 

006861 

1250 

0040 


DC 

X * 40 * 

006862 




# 


006863 

1251 

0001 


XMSB DC 

1 

006864 

1252 

0203 


DC 

X * 0203 * 

006865 

1253 

FF07 


DC 

2* FF07* 

006866 

1254 

0809 


DC 

X * 0809 * 

006867 




# 


006868 

1255 

0001 


XSSB DC 

1 

006869 

1256 

0203 


DC 

X * 0203 * 

006870 

1257 

0007 


DC 

X * 0007 * 

006871 

1258 

0809 


DC 

X • 0809 • 

006872 




* 


006873 

1259 

0002 


C2 DC 

2 

006874 

125A 

0004 


C4 DC 

4 

006875 

125B 

0008 


C8 DC 

8 

006876 

125C 

0010 


C16 DC 

16 

006877 

125D 

0200 


HX200 DC 

X*200» 

006878 

125E 

0400 


HX400 DC 

X * 400 * 

006879 




* 


006880 





= s 3 s s 3 s s s : 

006881 




# 


006882 




* 


006883 




* 


006884 

125F 

1267 


TSAI DC 

<TSA2 

006885 

1260 

0000 


RESV 

4+3*SAF 1 

006886 

1267 

126F 


TSA2 DC . 

<TSA3 

006887 

1268 

0000 


RESV 

4+3*$AF. 
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OLD BAUD RATE LINE SPEED TABLE 


NEW BAUD RATE LINE SPEED TABLE 


5H0ULD BE TABLE FOR DSS T0 DSC LOOP ASYC 

SHOULD BE TABLE FOR CURRENT LOOP ADAPT. 

SHOULD BE TABLE FOR DSS TO DSC LOOP SYNC 

SHOULD BE TABLE FOR BROADBAND 301 
SHOULD BE TABLE FOR BROADBAND V35 


XMIT MARK SHOULD Be 

XMIT SPACE SHOULD BE 


TRAP SAVE AREAS 

.0 

.0 





TITLE DCMC2 » 

♦REV A* 

CLA TEST (SAP) 
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006888 

126F 

0000 

TSA3 RESV 

8 «Q 


006889 



ft 



006890 






006891 



* 



006892 



ft 

INTERRUPT SAVE AREAS 

006893 



* 



006894 

1277 

0000 

ISA1 RESV 

3+SAF.O 

INTERRUP1 SAVE AREA FOR LEVEL 1 (RTC) 

006896 

127b 

0306 

ISA1P OC 

<NOSPO 


006896 

127C 

6000 

DC 

X ' 6000 • 


006897 



* 



006898 

1270 

0000 

ISA4 RESV 

3 +JAF .0 


006899 

1261 

02 CO 

1SA4P OC 

<5P5YT1 


006900 

1282 

6000 

OC 

X 1 6000' 


006901 



ft 



006902 




SSCSSXSSS 


006903 



* 



006904 



* 


LINE CONTROL TABLES 

006905 



ft 



006906 

1283 

0206 

LCT OC 

X ' 206 * 

STARTING address Of channel prog. 

006907 

1284 

0414 

OC 

X • 414* ' 

RECV. LINE CONTROL SET TtST MODE 

006908 

1285 

0000 

OC 

0 

TABLE END 

006909 



ft 



006910 

1286 

0206 

LCT1 OC 

X ' 206 ♦ 


006911 

1287 

0426 

■oc 

X * 426 ♦ 


006912 

1288 

C802 

OC 

2* C802 * 


006913 

1289 

C822 

OC 

2 » C622 * 


006914 

128A 

0E18 

LCT15 DC 

X ' E1 8 1 


006915 

126b 

C714 

LC1LCR OC 

2*C714* 

LINE CUNIROL 

006916 

128C 

0000 

LC15YF, OC 

0 

SYNC. FLAG 

006917 

1280 

0000 

OC 

0 

END OF TABLE 

006918 



ft 



006919 

126E 

0206 

LCT2 OC 

X * 206 ' 


006920 

128F 

0426 

OC 

X»426' 


006921 

1290 

C802 

LC2CFR OC 

2' C802 * 


006922 

1291 

C822 

LC2CFX OC 

2' C622 * 


006923 

1292 

0E18 

LCT25 OC 

X * E18 * 


006924 

1293 

C714 

DC 

2 * C714 • 


006925 

1294 

0117 

LCT2FG OC 

X * 117 ♦ 

FLAG FUR TYPE OF Send ANO RtCV 

006926 

1295 

0000 

OC 

0 


006927 



ft 



006928 

1296 

0206 

LCT3 OC 

X * 206 • 

RAM STARTING ADDRESS (RECV) 

006929 

1297 

0426 

DC 

X * 426 ' 

RAM STARIING ADDRESS (XM1T) 

006930 

1298 

C002 

LC3CFR DC 

2 * C002 * 

CONFIGURATION (RECV) 

006931 

1299 

C022 

LC3CFX DC 

2 'C022♦ 

CONFIGURATION (XMlT) 

006932 

129A 

0000 

LCT35 OC 

0 

SPEED IN SCRATCH LOCATION 

006933 

129b 

0714 

OC 

2 * C T14• 

LINE CUNIROL (RECV) 

006934 

129C 

0000 

LC3SYF OC 

0 

SYNC FLAG 

006935 

1290 

0000 

RESV 

1*0 


006936 



ft 



006937 

129E 

0206 

LCT4 DC 

X'206' 


006938 

129F 

0426 

OC 

X * 426 * 


006939 

12A0 

0002 

LC4CFR OC 

2 


006940 

12A1 

0022 

LC4CFX OC 

X * 22 • 


006941 

12A2 

0000 

LCT45 OC 

0 


006942 

12A3 

C714 

OC 

2'C714* 


006943 

12A4 

0000 

RESV 

1*0 


006944 



* 



006945 

12A5 

0206 

LCT5 OC 

X♦206• 


006946. 

12A6 

0426 

OC 

X♦426 * 


006947 

12A7 

C8Q2 

OC 

2»C802* 


006948 

12A6 

C822 

DC 

2 1 C822' 


006949 

12A9 

0E18 

LCT5S OC 

X * El 8 * 


006950 

12AA 

C714 

OC 

2'C T14 * 


006951 

12 A b 

OF 10 

OC 

X * F10 * 

LCT STATUS BYTES 

006952 

12AC 

OF 11 

oc 

X*F11 • 

w 

006953 

12A0 

0000 

LC55YF OC 

0 

SYNC. LINE FLAG 

006954 

12AE 

0000 

OC 

0 


006955 



* 



006956 

12 AF 

0206 

LCT6 OC 

X*206* 


006957 

12 b0 

0226 

OC 

X'226* 


006958 

12 B1 

C027 

DC 

2'C027» 


006959 

12 b2 

C802 

oc 

2 ' C802 • 


006960 

12B3 

C822 

OC 

2 * C822 * 


006961 

12b4 

0E18 

LCT6S OC 

X»E18» 


006962 

1285 

C714 

OC 

2 ' C714 ♦ 


006963 

1286 

0210 

LCT6TF OC 

X*210» 


006964 

1287 

0125 

OC 

X*125* 

DISABLE PAUSE 

006965 

1288 

0000 

OC 

0 


006966 



« 



006967 

1289 

0206 

LCT7 OC 

X * 206 • 


006968 

12BA 

0226 

OC 

X * 226 * 


006969 

128B 

C802 

DC 

2 'C802' 


006970 

12BC 

C822 

DC 

2 *C822 * 


006971 

1280 

FC1D 

LC7SM DC 

2»FC10» 

MASK TU CHECK BITS(FC-ASY. F8-5YC.) 

006972 

12 BE 

0439 

OC 

X♦439 * 

TLU POINTER TABLE l 

006973 

12BF 

0105 

OC 

X»105» 


006974 

12 C0 

0125 

OC 

X * 125* 


006975 

12 C1 

0000 

RESV 

1.0 


006976 



ft 



006977 

12C2 

0206 

LCT8 OC 

X'206 * 


006976 

12C3 

0426 

OC 

X * 426 * 


006979 

12C4 

C802 

oc 

2»C802» 


006980 

12C5 

C822 

DC 

2*C622* 


006981 

12 C6 

C518 

OC 

2»C518* 


006982 

12C7 

C714 

OC 

2»C714» 


006983 

12 C8 

0105 

OC 

X'105 * 

DISABLE PAUSE 

006984 

12C9 

0125 

OC 

X»125* 

DISABLE PAUSE 

006985 

12CA 

0000 

LCT8FG DC 

0 


006986 

12 C8 

0000 

RESV 

1*0 


006987 



ft 



006986 

12CC 

0206 

LCT9 • DC 

X * 206* 


006989 

12 CD 

0426 

OC 

X • 426* 


006990 

12CE 

C802 

OC 

2 * C8Q2 * 


006991 

12 CF 

C822 

DC 

2 * C822 * 


006992 

1200 

0000 

LCT9MS OC 

0 


006993 

1201 

C314 

OC 

2 ' C314* 


006994 

1202 

0000 

OC 

0 


006995 



ft 



006996 



ft 



006997 



ftssxsssxxc::; 


::s$s:s:2s::scs»sss«*:i::;ts:ss:2ssss:s2:s;::s:!:;: 

006998 



ft 



006999 



ft 


FORMAT FOR DRIVER 

007000 



ft 







TITLE DCMC2* »REV A* 


CLA TEST (5AF) 
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007001 

007002 

007003 

007004 

007005 

007006 

007007 

007008 

007009 

007010 

007011 

007012 

007013 

007014 

007015 

007016 

007017 

007018 

007019 

007020 

007021 

007022 

007023 

007024 

007025 

007026 

007027 

007028 

007029 

007030 

007031 

007032 

007033 

007034 

007035 

007036 

007037 

007038 

007039 

007040 

007041 

007042 

007043 

007044 

007045 

007046 

007047 

007048 

007049 

007050 

007051 

007052 

007053 

007054 

007055 

007056 

007057 

007058 

007059 

007060 

007061 


007065 


007066 


007067 

007068 

007069 

007070 


007071 

007072 


007073 


007074 


007075 

007076 


007077 


007078 

007079 

007082 

007083 

007084 


1203 

0006 

WCP 

DC 

6 

RANGE OF PROGRAM In BYTES 

1204 

0BF8 

WCP1 

DC 

<CHLP1 

CHANNEL PROGRAM ADDRESS 

1205 

0C34 


DC 

<CHLP1A 

XMIT CHANNEL PROGRAM ADDRESS 

1206 

0078 

RAG1 

DC 

(CHLP1A-CHLP1)*2 

RANGE OF CHANNEL PROGRAM 

1207 

005C 

RAG2 

DC 

(CHLP2-CHLP1A)*2 

RANGE UF PROGRAM In BYTES 

1208 

0400 


DC 

X* 400 * 

RAM ADDRtSS 

1209 

0C62 

WCP2 

DC 

<CHLP2 

CHANNEL PROGRAM ADDRESS 

120A 

0CB3 


DC 

<CHLP2A 

XMIT CHANNEL PROGRAM ADDRESS 

1206 

00A2 


DC 

(CHLP2A-CHLP2)#2 

RANGE OF CHANNEL PROGRAM 

12DC 

009E 


DC 

<CHLP3-CHLP2A)#2 

RANGE OF CHANNEL PROGRAM 

1200 

0400 


DC 

X•400 * 

RAM STARTING ADDRESS 

120E 

0002 

WCP3 

DC 

<CHLP3 


120F 

0048 


DC 

<CHLP3A 


12E0 

008C 


DC 

(CHLP3A-CHLP3)*2 


12E1 

00B6 


DC 

(CHLP4-CHLP3A)*2 


12E2 

0400 


DC 

X»4U0* 


12E3 

0DA3 

WCP4 

DC 

<CHLP4 


12E4 

OOOF 


DC 

<CHLP4A 


12E5 

0078 


DC 

(CHLP4A-CHLP4)*2 


12E6 

0004 


DC 

(CHLP5-CHLP4A)#2 


12E7 

02C0 


DC 

X»2C0* 


12E8 

0076 

WCP5 

DC 

(CHLP6-CHLP5)*2 


12E9 

0016 

WCP5B 

DC 

22 


12EA 

0E84 

WCP6 

DC 

<CHLP6 


12E6 

0EE9 


DC 

<CHLP6A 


12EC 

OOCA 


DC 

(CHLP6A-CHLP6)#2 


12E0 

0002 


DC 

(CHLP7*CHLP6A)#2 


12EE 

0400 


DC 

X•400• 


12EF 

0F52 

WCP7 

DC 

<CHLP7 


12F0 

0F84 


DC 

<CHLP7A 


12F1 

0064 


DC 

(CHLP7A-CHLP7)#2 


12F2 

0058 


DC 

(CHLP8'*CHLP7A) *2 


12F3 

0400 


DC 

X * 400 1 


12F4 

0000 


RESV 

2*0 


12F6 

OFBO 

WCP8 

DC 

<CHLP8 


12F7 

1028 


DC 

<CHLP8A 


12F8 

OOFO 


DC 

(CHLP8A-CHLP8M2 


12F9 

0100 


DC 

(CHLP9-CHLP8A)#2 
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1374 

14Q0C 

1551 

1559 

1563 

1857 

1859C 

1868C 

1956 

1957 

1993 

2052 

2144 

2161C 

2390 



986 

988 

992 

20020 

2004 

2030 

2060 

2061C 

2139C 

315 

316 

317 

720 

733 

734C 

857C 

858 

932 

1200 

1201C 

1202 

1495 

1496C 

1497 

1868C 

1912 

1927 

2146 

2147 

2150 

2166 

2167 

2168 

2383 

2389B 

2391C 


1294 

1479 

1631 

1217 

1305 

1490 

1643 




15580 16820 1825B 
22580 22830 2345B 


1815 1816 20 9 0C 


14660 16160 1710B 




f r^. 





TITLE DCMC2* 


2027 CPAK2 
2040 LPAR3 

2038 CPAR4 

2039 CPAR5 
3249 CPCRC 
6717 CPFLG 
3271 tPPAR 
5818 CPRT 
6225 CPRTX 
1986 CRC 
6711 CRC16 
1996 CRCA 

6650 CRCAC 
2002 CRCB 

6651 CRCFG 
6722 CRLF 

923 CRPR1 
925 CRPR2 
907 CRPRT 
823 CRPTB 
834 CRPT61 
899 CRPTB2 

6648 CS 

6649 CSB 
379 CYN 

DCMC2 

6508 DENW 
356 DEVNF 
6734 DFLT 

7082 DIR 

7084 DIN1 

6652 01V1 

6653 DIV2 

6654 DIV3 

6655 01V4 
4348 OLAY 

702 OLCCB 
6726 DOUT 

6728 DOUT1 


4507 DStT 
1831 DT2 
1839 DT3 
1799 DTAL 
1787 DTALOP 

995 EDLK 

326 EDLINT 
4362 EDLY 
2475 EDPCK 
3831 EDXT 
4575 ENDTC 
3858 EOP 
2427 ERU 
6682 ERAR 


6656 ERF 

7075 ERMG 

7076 ERMG1 

7077 ERMG2 
5550 ERR 
2417 ERR1 
2430 ERR2 
2437 ERR21 
2436 ERR21A 
2445 ERR3 
2444 ERR31 
2450 ERR34 
2456 ERR4 
2458 tRR5 
2407 ERROR 


4291 EXM1 
5920 EXT 

6657 FBRG 
6637 FID 

.6635 FIDSS 
4849 FIF3 
4822 FIFE 
6636 FILS 
6634 FINS 

6632 FIR 

6633 FIS 
6736 FIVSEC 
2301 FLN 
2306 FLN2 
2313 FLN3 

6630 FOBL 

6631 FOCB 

6628 FOCC 

6627 FOIC 

6629 FOLD 
6626 FOMC 
7074 FREV 
6740 FRIMRV 
5764 FVBC 
5758 FVBY 

6658 FWFG 
2222 GEN1TZ 
2648 GETC 
2662 'GETC1 
2685 GETX 


'REV A» 

CLA 

TEST (SAF) 





PAGE 

57 

20626 

2029B 

2032B 









20356 

2037B 

3214 

3215 

3217 

3266 

3267 

3268 





326 

832 

896 

1921 







3224 

3225 

3226 

3288 

3289 

3294 





5675 

5676 

5677 








6159 

6160 

6161 








984B 

975 

2002B 

2005B 









986 

2000B 

2006C 









826C 

899C 

1069C 

1078C 

1900 

1941C 





2418 

9216 

917B 

1902B 

2454 









442B 

4596 









888B 

891B 

8986 









912C 

976 

1918 

2022 

2031 

2034 





612C 

3816 

641C 

773C 

790C 

797C 

2146 





1 

7087 









6484 

6485 

6486 








3416 

347B 









499 

557 

574 

846 

867 

884 

1027 

1048 

1065 

1211 

1232 

1249 

1448 

1484 

1508 

1525 

1794 




706 

714 

942 

1440 

1450 

1678 

1692 

1759 

1794 

1854 

1907 

1922 

7080 

7083 







931 

942 

981 

1921 

1922 






309C 

2114 









312C 

2117 









313C 

2122 









318C 

2127 









4190 

4191 

4192 

4244 

4245 

4246 

4254 

4255 

4256 


7116 

499 

500 

697 

846 

847 

1027 

1028 

1211 

1212 

1300 

1484 

1485 

1712C 

1730 

1744C 






530 

557 

558 

574 

575 

867 

868 

884 

885 

1048 

1049 

1065 

1066 

1232 

1233 

1249 

1250 

1323 

1340 

1508 

1509 

1525 

1526 








4488 

18276 

18356 

17976 

4489 

4491 








4956 

5256 

553B 

5706 

8426 

8636 

8806 

10236 

10446 

1061B 

12076 

12266 

12456 

12956 

13186 

13356 

14806 

15048 

15216 

1725B 

9526 

9936 









2916 

3616 









4355 

4356 

4357 

4392 

4393 

4394 





448B 

4616 

476B 








3791 

3792 

3794 

3818 

3819 

3820 

3865 

3866 

3867 


4558 

4559 

4560 








3847 

2421 

3848 

3850 








942 

943 

945 

946 

947 

1692 

1693 

1695 

1696 

16 9 7 

im 

1760 

1762 

1763 

1164 

1907 

1908 

19J0 

i?Ll 

13,12 

1922 

1923 

1925 

1926 

1927 






767 

768C 

771C 

2428 







483C 

584C 

824C 

1004C 

1087C 

1191C 

1282C 

1465C 

1615C 

1709C 

2408 

2411 

2412C 

2417 







356 

382 

5540 

2416C 

5541 

5542 








24566 

2432 

24356 









2420 

2431 

2438 

24406 

2443C 

2461 

24666 




2425 

2436 









2446 

24536 

24296 

24486 









7266 

7406 

746B 

7696 

9486 

9906 

9946 

1139B 

11426 

1178B 

12626 

12656 

1270B 

12736 

13576 

13606 

1376B 

13908 

13986 

14136 

14216 

14426 

14526 

15506 

15536 

15616 

15656 

15746 

15806 

1685B 

16916 

16986 

17656 

17816 

1629B 

18376 

18666 

18756 

18908 

I 896 B 

19138 

19286 

2101B 

22286 

22616 

23986 





4279 

4280 

4281 








5726 

5727 

5729 

5751 

5752 

5754 

5798 

5799 

5801 

S861 

5862 

5863 

5886 

5887 

5888 

5911 

5912 

5913 



1423C 

1454 








s 

390 










4828 

4829 

4830 








4851 

4852 

4853 








2087 

2248 









2257 

2344 









742 

1372 

1546 

1557 







594C 

733 

755 

813 







6726 

23096 

2307B 

2282 

2393 

16606 

17906 








722 

731 

1385 

1393 

1681 

1824 

1832 

1860 

1871 

2081 

2097 

2241 










2387 

2224 

415 

413C 

5685 5686 5688 


5778 

5779 

5781 

5802 

5803 

5807 




290 

417C 








4066 

6846 

16636 

18006 






2561 

2562 

2566 

2667 

2668 

2669 

2682 

2683 

2667 


2638 2639 2640 

2675 2676 2677 




TITLE 0CMC2 * »REV A 


CLA TEST (SAF) 
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5530 

HANG 

5547 

5548 

5552 


6659 

HGSPD 

398C 

2155C 

2188 


6660 

HISPD 

399C 

1013 

2212C 


2530 

HLP1 

2701 

2702 

2703 


2671 

HLP1A 

2659 

2660 

2664 


6661 

HRT2 

299 

305 

317 

586 

6877 

HX200 

688 

1670 

1794 

1815 

6878 

HX400 

689 

1671 



2256 

I NRG 

8088 

13588 

1367B 


2613 

INSY 

2585 

2586 

2588 


421 

1NVD 

4018 

4148 

434B 

4528 

2247 

1NXT 

741B 

12598 

12678 

13548 

807 

1RRG 

634 

8178 



811 

IRRG1 

8128 




813 

1RRG2 

8108 




6894 

1 SA1 

606 

1107 



6895 

ISA1P 

604C 

635C 

11Q5C 


6898 

ISA4 

597 

1091 



6899 

JSA4P 

596L 

799C 

815C 

1090C 

2950 

JFQG 

29 22 

2923 

2925 


3988 

JFRR 

3959 

3960 

3961 


3451 

JFYY 

3423 

3424 

3426 


2901 

JHGQ 

2947 

2948 

2952 


3939 

JHRR 

3984 

3985 

3986 


3390 

JHYY 

3448 

3449 

3453 


1876 

JP2 

18748 




1880 

JP2A 

18788 




1686 

JP2B 

18818 




1892 

JP3 

18898 




1907 

JP4 

14568 

1846C 

19018 


1897 

JP4A 

18958 




1915 

0P5 

950 

1909B 



1932 

JP5A 

12748 

15818 

17836 

19166 

1930 

JP5B 

19248 




741 

JPT1 

739B 

752B 



747 

JPT2 

7458 




672 

JPT3 

7828 




761 

JPT4 

798 




752 

JPT5 

7488 




5416 

KER 

5405 

5406 

5408 


6573 

KUNTA 

6548 

6549 

6550 

6561 

6915 

LC1LCR 

439C 

455C 

468C 

539 

6916 

lcisyf 

488C 

547C 



6921 

LC2CFR 

829C 

889 

893C 

1195C 

6922 

LC2CFX 

831C 

895C 

U97C 


6930 

LC3CFR 

1113C 

1143 

1146C 

1155C 

6931 

LC3CFX 

1115C 

1148C 

115 7 C 

U69C 

6934 

LC3SYF 

613C 

639C 

761 

U1QC 

6939 

LC4CFR 

1008C 

1070 

1073C 


6940 

LC4CFX 

101OC 

1075C 



6953 

LC5SYF 

1286C 

1312C 

1430 


6971 

LC7SM 

1623C 

1642C 



3292 

LCB1 

3238 

3239 

3240 

3260 

6906 

LCT 

2094 




6910 

LCT1 

498 

528 

556 

573 

6914 

LCT1S 

485C 

507C 

* 516C 

523C 

6919 

LCT2 

845 

866 

883 

1210 

6925 

LCT2FG 

834C 

1199C 



6923 

LCT2S 

83 6t 

857C 

1201C 

1222C 

69£8 

±£I1_ 

JiZl 




2284 

LCT3A 

22858 




6932 

LCT3S 

678C 

775 



6937 

LCT4 

1026 

1047 

1064 


2276 

LCT4A 

22868 




6941 

LCT4S 

1017C 

1038C 



6945 

LCT5 

1298 

1321 

1338 


2282 

LCT5A 

22788 




6949 

LCT5S 

1288C 

1310C 



6956 

LCT6 

1483 

1507 

1524 


6961 

LCT6S 

1474C 

1498C 



6963 

LCT6TF 

1471C 

1496C 



6967 

LCT7 

1674 




6977 

LCT8 





6985 

LCT8FG 

1467C 

1531C 



6988 

LCT9 

1728 




6992 

LCT9MS 

1718C 

1739 

1754 

1768 

6681 

LCTV 

411C 

412 

416 

963 



2352 




4372 

LESS 

4380 

4381 

4382 


5372 

LKB1 

5388 

5389 

5390 


1660 

LOPD 

17018 




1661 

L0P01 

1658C 




1686 

L0P02 

16848 




1700 

L0P03 

16948 




1692 

L0P07 

1619C 

1621C 

1635C 

1640C 

1658 

LOPDS 

16298 

16328 

1637B 

16448 

2714 

LP1A 

2850 

2851 

2853 


2808 

LP1AA 

2839 

2840 

2844 


2817 

LP1AB 

2805 

2806 

2810 


2794 

LP1ABD 

2740 

2741 

2742 

2813 

2842 

LP1AC1 

2832 

2833 

2834 


1614 

LPCBLK 

4718 




482 

LPTA 

4408 

457B 

4708 


1815 

LPWRT 

1806C 

1809C 



1816 

LPWKT1 

1808C 

1811C 

1813C 


6604 

MARK . 

6617 

6618 

6619 


6662 

MASK 

487C 

827C 

923C 

942 



1920C 

1922 

1930C 


2395 

MCB2 

23968 




2389 

MCB5 

23928 




2399 

MCB6 

23978 




2382 

MCCB 

6968 

7058 

7138 

16776 

2398 

MCER 

23898 




1867 

MELCO 

18638 

18658 



727 

MELC01 

7258 




7059 

MESG 

289 




7066 

MESG2 

2182 




7067 

MESG4 

2184 




7068 

MESG5 

2207 




7069 

MESG6 

421 




7070 

MESG7 

328 




7071 

MESG8 

2478 




7072 

MESG9 

298 





592 1094 

2092 

1366B 1688B 1886B 1893B 

1180C 


1919B 

6562 6563 

• 543C 

1167C 
2200 

3261 3263 3281 3282 3283 

545C 

1231 1248 


971 1411 1419 1572 1578 1779 

1690B 

1647B 16506 

2814 2815 

1012C 1617C 1692 1713C 1759 1907 

18486 1853B 




4 n 
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TITLE PCMC2. »REV A* CLA TEST (SAP) 


6663 

MSB5 

2156 

2214C 

2164 

2171C 

2190 

2262 

N1 

2260b 




2258 

N1A 

2242b 

22498 



2229 

N2 

2227b 




3650 

N61 

3629 

3630 

3631 


6031 

N611 

6010 

6011 

6012 


3660 

N71 

3659 

3660 

3661 


6061 

N711 

6040 

6041 

6042 


1177 

NBITT 

1104 

11826 



544 

NCdL 

514b 

5416 



5734 

NF8A 

5695 

5696 

5697 

5755 

5740 

NFVb 





363 

NOPEVF 

334 




796 

NOSPD 

603 

8018 

6895 


3519 

NPKY 

3489 

3490 

3491 

3536 

3997 

NSCH 

4013 

4014 

4016 


6756 

NSPTbL 

620 

627 



2959 

NSTR 

2975 

2976 

2977 


4318 

NSXM 

4307 

4308 

4310 

4342 

4211 

NSY 

4084 

4085 

4086 

4237 

4662 

NSYK 

4634 

4635 

4637 


5363 

NSYK1 

5335 

5336 

5338 


4269 

NT3 

4205 

4206 

4207 

4286 

290 

NTYR 

288b 




3316 

NWT 

3308 

3309 

3311 


4384 

NXC 

4376 

4377 

4378 


1790 

NXLT 

1934b 




678 

NXSPP 

778b 

11626 

1164B 


680 

NX5PP1 

1150b 

1179 



684 

NXSPP2 

682b 




4155 

NZ7 

4181 

4182 

4188 


5147 

QRUP 

5012 

5013 

5015 


6773 

QSPT8L 





5244 

OVCX 

5233 

5234 

5235 


4240 

OVLY 

4230 

4231 

4232 


5197 

OVR 

5156 

5157 

5158 


1259 

PARI 

1883b 




1263 

PAR2 

1261b 




1266 

PAR3 

12648 




1271 

PAR4 

1269b 




1274 

PARS 

12726 




1190 

PARERF 

4458 

4606 



6664 

PARFG 

1193C 

1252C 

1715C 

1741C 

451 

PCH 

4328 




359 

PPRS 

3868 




5032 

PGCX 

5055 

5056 

5057 


7064 

PLAF 

7060 




2211 

PRLTi 

22016 




2199 

PRLT3 

21898 




2196 

PRLT5 

21946 




2207 

PRLT7 

22058 




2179 

PRTLSP 

7708 

788B 



3496 

PRYT 

3513 

3514 

3521 


6666 

PSFG 

397C 

659C 

784 


6665 

PTTY 

938C 

2057 



553 

GA1 

5658 




863 

UA2 

8758 




1044 

GA3 

10568 




U28 

QA4 

im* 




1318 

GA5 

13308 




1504 

QA6 

15168 




1400 

0T1 

13968 




1392 

GT2 

1366B 




7005 

RAG1 

688 




7006 

RAG2 

689 




6400 

RAN 

6445 

6446 

6450 


6667 

RANGE 

631C 

632 

932 

942 



1922 




6597 

RAY 

6587 

6588 

6590 


3482 

RCCH 

3387 

3388 

3392 


342 

RCK1 

3406 




3460 

RCKSY 

3476 

3477 

3478 


3349 

RCP3 

3559 

3560 

3561 


6668 

RCRC 

965C 

987 



991 

RCRCG 

9896 




960 

RCRRL 

955C 




968 

RCRXL 

957C 




3078 

RCV 

3021 

3022 

3024 

3043 

2982 

RCVA 

2898 

2899 

2903 

3094 

2343 

RDLCT 

4076 

959B 

9676 

14078 

5876 

RE1 





5869 

RE1A 

5831 

5832 

5834 

5890 

5901 

RE2 





5894 

RE2A 

5841 

5842 

5843 

5915 

5851 

RE3 





5845 

RE3A 

5865 

5866 

5867 


3033 

RECV1 

2995 

2996 

2997 

3050 

3055 

RECV2 

3006 

3007 

3012 

3072 

3010 

RECV3 

3027 

3028 

3029 


4041 

RENO 

4029 

4030 

4031 


4709 

RERR 

4683 

4684 

4686 


6669 

RLCTAD 

2349C 

2352 



6670 

RLCTRG 

2351C 

2352 



4019 

RMCH 

3935 

3936 

3937 

4036 

1567 

RNCKi 

1542C 




1554 

RNCK4 

15458 

1552B 



1551 

RNCK4A 

15496 




1563 

RNCK48 

15608 




1566 

RNCK.5 

15566 

15646 



1581 

RNCK.6 

15738 

15766 

15796 


1578 

RNCK9 

15718 




375 

RON 

3788 




5238 

RQTR 

5216 

5219 

5221 


438 

RTST 

449B 




467 

RT5T1 

4758 




1539 

RUNCK 

18986 




6671 

RUNFG 

1469C 

1530C 

1897 

1948C 

2469 

SAFF 

2460 




336 

SALT 

3546 




6684 

SAVl 

1986C 

2007 

2021C 

2063 



2256C 

2262 

2272C 

2279 



2382C 

2399 




2192C 2196C 2197 2199 2211 2213C 


5756 5760 


3537 3538 


4343 4344 
4238 4242 


4287 4293 


1880 1942C 


982 1422 1428C 1840C 1907 1921 


3044 

3095 

14156 

3045 

3097 

15668 

3066 

17748 

3067 

3069 

5891 

5692 




5916 

5917 




3051 

3073 

3057 

3074 





4037 4043 


2111C 2131 2138C 2172 2239C 2247C 

2301C 2313 2322C 2332 2343C 23§3 




TITLE DCMC2» »K€V A* 


CLA TEST (SAF) 
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6685 

SAV2 

6686 

SAV3 

6687 

SAV4 

1101 

SBlTl 

6823 

SBITBL 

1137 

SBTE 

1140 

SBTE1 

1143 

SBTE2 

1152 

SBTE3 

1166 

SBTE4 

6676 

SBTFG 

2080 

SCLS 

2083 

6CLS1 

5646 

SCY1 

5617 

SCY2 

5002 

5DBB 

4131 

SDRR 

2779 

SDSY 

3184 

SOW 

5501 

SDWW 

3747 

5DZZ 

6738 

SECH 

6737 

SELL 

2272 

SETLCT 

2461 

SETNR 

713 

SGCC6 

3543 

SHFL 

6677 

SHORT 

454 

SHTST 

4613 

SINK 

5314 

SINK1 

7065 

SLAF 

3201 

SNC1 

3228 

SNC3 

6849 

SPACE 

2467 

SPACE1 

668 

SPDTLP 

600 

SPSYT1 

583 

SPSYTC 

673 

ST 1 

744 

ST3 

1086 

STBITE 

2239 

STCR 

1281 

ST10G 

1351 

STIQ 

1352 

STIQ1 

1379 

STIQ2 

1367 

ST1G3 

1377 

ST 104 

1355 

ST 105 

2072 

STMO 

2103 

STH01 

2086 

STMD2 

2092 

STMD3 

279 

stop 

289 

STP 

4901 

STP3 

6678 

STPFG 

233 

£TR.T 

630 

STSP1 

2468 

SWT 

5705 

SXB1 

5699 

SXBC 

5640 

SYC 

5606 

SYCH 

736 

SYCT 

6747 

SYLSPO 

6748 

SYLSP1 

6749 

SYLSP2 

6750 

SYLSP3 

6751 

SYLSP4 

6752 

SYLSP5 

6753 

SYLSP6 

6754 

SYLSP7 

6698 

SYN188 

6696 

SYNC 

784 

SYNSP 

789 

SYNSP1 

494 

T1 

872 

T10 

879 
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